RIAG Crate 005: Volume 125 Dallas Assortment #3
Emulation Item Preview
Share or Embed This Item
RIAG Crate 005: Volume 125 Dallas Assortment #3
- Language
- English
Notes
Disk info for Volume_125_Dallas_Assortment_3.dsk:
File Name: riag_005_Volume_125_-_Dallas_Assortment_3/Volume_125_Dallas_Assortment_3.dsk
Disk Name: DISK VOLUME #1
Physical Size (bytes): 143360
Free Space (bytes): 18432
Used Space (bytes): 124928
Physical Size (KB): 140
Free Space (KB): 18
Used Space (KB): 122
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 72
Used Sectors: 488
Tracks On Disk: 35
Sectors On Disk: 16
Disk directory for Volume_125_Dallas_Assortment_3.dsk:
riag_005_Volume_125_-_Dallas_Assortment_3/Volume_125_Dallas_Assortment_3.dsk DISK VOLUME #1
* A 003 APPLE PI SLICE 1252 (DALLAS)
* B 008 APPLE DAYTON MENU 3.1
* I 003 APPLESOFT
* A 004 DALLAS DOM (8207) HELLO
* B 008 B.MENU
* I 004 APPLESOFT*
* A 004 BASIC-INTEGER
* B 022 BASIC-INTEGER.X
* I 004 BASIC TUTORIAL
* I 036 BASIC TUTORIAL 1
* I 047 BASIC TUTORIAL 2
* I 048 BASIC TUTORIAL 3
* I 044 BASIC TUTORIAL 4
* A 053 WEEKLY PAYROLL.EPSON
* T 002 MONEY
T 002 YTOTAL
T 002 QTOTAL
T 002 YTOM E WHITE
T 002 YJOE D BROWN
T 002 YDONALD C BLACK
T 002 YJOHN T STUDENT
T 002 YDAVID L MANAGER
* A 048 WHEEL OF FORTUNE
* A 032 PHONE LIST WITH AUTO-DIAL
T 003 PHONE DIRECTORY
* A 009 CHECKBOOK RECONCILIATION
* A 015 CROCKPOT COOKING TIME
* A 004 POKE-BUILDER-INFO
* A 005 POKE-BUILDER
* T 002 BASENAMEFILE
T 002 APPLE POKES HEADERFILE
T 012 APPLE POKES INDEXFILE
T 002 APPLE POKES RPTFMTNAMEFILE
T 002 APPLE POKES APPLE POKES RPTFMT
DOS 3.3 format; 18,432 bytes free; 124,928 bytes used.
Text found in Volume_125_Dallas_Assortment_3.dsk/APPLE PI SLICE 1252 (DALLAS).bas:
10 POKE -16302,0
60 HOME
65 VTAB 4: HTAB 6: PRINT "APPLE PI PUBLIC DOMAIN LIBRARY"
70 VTAB 9: HTAB 9: PRINT " TO RERUN MENU PROGRAM"
75 PRINT
80 HTAB 9: PRINT "'CALL 1016' FROM BASIC"
85 PRINT
90 HTAB 8: PRINT "OR 'CTRL Y' FROM MONITOR"
95 PRINT
100 HTAB 9: PRINT "EXIT PROGRAM WITH A 'E'
105 PRINT
110 HTAB 15: FLASH : PRINT "NOT RESET": NORMAL
115 FOR W = 1 TO 2000: NEXT W
120 PRINT "";"BRUN APPLE DAYTON MENU 3.1": END
130 REM ************************
140 REM APPLE DAYTON HELLO.OBJ
150 REM CONTRIBUTED TO
160 REM APPLE PI BY
170 REM APPLE DAYTON GROUP
190 REM
230 REM ************************
Text found in Volume_125_Dallas_Assortment_3.dsk/APPLE POKES APPLE POKES RPTFMT.txt:
00015
0
1
0
1
7
0
2
15
0
3
31
0
0
0
0
Text found in Volume_125_Dallas_Assortment_3.dsk/APPLE POKES HEADERFILE.txt:
00003
HEXADD
POKE
EXPLANATION
Text found in Volume_125_Dallas_Assortment_3.dsk/APPLE POKES INDEXFILE.txt:
00091
-16625,255
SUPRESS A LINE FEED
-16625,0
SEND LINE FEED (DEFAULT)
C020
-16532,0
TOGGLE CASSETTE OUTPUT
C010
-16368,0
CLEAR KEYBOARD STROBE
C030
-16336,0
TOGGLE CASSETTE SPEAKER OUTPUT
C040
-16320,0
STROBE GAME I/O
C050
-16305,0
SET GRAPHICS MODE
C050
-16304,0
SET COLOR GRAPHICS MODE
C051
-16303,0
SET TEXT MODE
C053
-16301,0
CONVERT FULL SCR GR TO MIXED GR/TEXT SCR
C054
-16300,0
DISPLAY PRIMARY PAGE
C055
-16299,0
DISPLAY SECONDARY PAGE
C056
-16298,0
LO-RES
C057
-16297,0
HI-RES
C058
-16296,1
SET ANNUCIATOR 0 HIGH
C059
-16295,0
SET ANNUCIATOR 0 LOW
C05A
-16294,1
SET ANNUCIATOR 1 HIGH
C05B
-16293,0
SET ANNUCIATOR 1 LOW
C05C
-16292,1
SET ANNUCIATOR 2 HIGH
C05D
-16291,0
SET ANNUCIATOR 2 LOW
C05E
-16290,1
SET ANNUCIATOR 3 HIGH
C05F
-16289,0
SET ANNUCIATOR 3 LOW
-16242+S*16,3
COMM CARD/RESET ACIA
-16242+S*16,17
COMM CARD/STATUS
0020
32,X
WINDOW LEFT 0-39
0021
33,X
WINDOW WIDTH 0-40
0022
34,X
WINDOW TOP 0-24
0023
35,X
WINDOW BOTTOM 0-24
0024
36,X
CURSOR HORIZONAL 0-39
0025
37,X
CURSOR VERTICAL 0-24
0026
38,X
GBASH GRAPHICS BASEADDRESS
0027
39,X
GBASH
0028
40,X
BASL TEXT SCR BASEADDRESS
0029
41,X
BASH
002A
42,X
BAS2L TEMP BASEADDRESS
002B
43,X
BAS2H
0030
48,X
COLOR 0-15
0031
49,X
MODE
0032
50,255
NORMAL MODE
0032
50,127
FLASH MODE
0032
50,63
INVERSE MODE
0032
50,X
SCRAMBLE TEXT OUTPUT
50,128
MAKE LISTING & CAT.INVISBLE
0033
51,X
PROMPT CHARACTER
0036
54,L
CWSL
0037
55,H
CSWH CHARACTER OUTPUT
0038
56,L
KSWL
0039
57,H
KSWH CHARACTER INPUT
003A
58,L
PCL
003B
59,H
PCH
003C
60,L
A1L
003D
61,H
A1H
003E
62,L
A2L
003F
63,H
A2H
0042
66,L
A4L
0043
67,H
A4H
0045
69,X
"A" REGISTER
0046
70,X
"X" REGISTER
0047
71,X
"Y" REGISTER
0048
72,X
STATUS REGISTER
0049
73,X
STACK POINTER
82,128
MAKE CASS.AUTO-RUN WHEN LOADED
118,0
INPUT EXPECTED FROM KEYBOARD
214,255
MAKE DISK PROG RUN WHEN ANY COMMAND ISSUED
216,0
CANCEL ONERR
230,32
INITIALIZE HGR
230,64
INITIALIZE HGR2
845,110
COMM CARD,LINE FEED WITH (3.2)
1144+S,64
SERIAL CARD/BRATE
1272+S,2
SERIAL CARD/STBITS
1400+S,7
SERIAL CARD/STATUS
1400+S,80
PARALLEL PTR + SLOT,WIDTH 80
1528+S,0
SERIAL CARD/CHARACTER COUNTER
1656+S,0
PARALLEL PTR + SLOT CHARACTER COUNTER
1784+S,137
PARA PTR/SET COMMAND PREF TO CTRL "I"
1784+S,80
SERIAL CARD/PRINTER WIDTH
1784+S,32
COMM CARD/LOWER CASE
1912+S,1
NO VIDEO/ENABLE LINEFEED
1912+S,0
COMM CARD/VIDEO ECHO
1912+S,128
ENABLE VIDEO, NO LINEFEED
1912+S,129
ENABLE VIDEO & LINEFEED
1912+S,9
SERIAL CARD/NBITS
1912+S,0
NO VIDEO/NO LINEFEED
2040+S,129
SERIAL CARD/FLAGS
2040+S,17
COMM CARD/STAT
2049,1
MAKEFIRST PROGRAM LINE LIST REPEATEDLY
C052
16302,1
FULL SCREEN GRAPHICS
C000
16384,0
READ KEY TO SEE WHICH KEY
40514,52
ALLOW BINARY GREETING PROGRAM
40514,20
ALL TEXT GREETING PROGRAM
49234,0
FULL SCREEN GRAPHICS
Text found in Volume_125_Dallas_Assortment_3.dsk/APPLE POKES RPTFMTNAMEFILE.txt:
00001
APPLE POKES
Text found in Volume_125_Dallas_Assortment_3.dsk/APPLESOFT*.int APPLESOFT.int:
10 REM BY PHIL FAULCONER,
20 REM APPLE CORPS OF DALLAS
30 REM APPLE DAYTON B.MENU
40 REM PROGRAM MODIFIED BY
50 REM PHIL FAULCONER
60 TEXT :CALL -936
65 PRINT :PRINT
70 PRINT "APPLE CORPS OF DALLAS":PRINT " DISK OF THE MONTH"
80 PRINT :PRINT :PRINT
90 PRINT " TO RERUN B.MENU, 'CALL 1016'":PRINT "FROM EITHER BASIC OR FROM MONITOR,":PRINT " 'CTRL Y' OR '3F8G'."
100 PRINT :PRINT
110 PRINT "EXIT MENU WITH 'E',"
111 FOR D=1 TO 3
112 X=63
113 POKE 50,X:VTAB 15
114 FOR W=1 TO 100:NEXT W
115 PRINT "DO NOT USE 'RESET'."
120 POKE 50,255:PRINT :PRINT
130 PRINT "B.MENU IS A MODIFIED VERSION OF THE APPLE DAYTON MENU PROGRAM."
140 IF X=255 THEN GOTO 150
145 X=255:GOTO 113
150 NEXT D:PRINT "BRUN B.MENU":END
Text found in Volume_125_Dallas_Assortment_3.dsk/APPLESOFT.int:
207 TEXT
208 CALL -936
300 D$="":PRINT D$;"NOMONC,I,O":CALL -936:TEXT
305 VTAB 3:TAB 3:PRINT "APPLE PI PUBLIC DOMAIN LIBRARY HELLO"
310 VTAB 6:TAB 10:PRINT "TO RERUN MENU PROGRAM":VTAB 7:TAB 9:PRINT "-----------------------"
320 VTAB 10:TAB 9:PRINT "'CALL1016' FROM BASICS":VTAB 12:TAB 10:PRINT "CTRL-Y FROM MONITOR"
340 VTAB 18
350 INPUT "HAVE FUN! TO CALL CATALOG, HIT RETURN.",X$
360 PRINT D$;"BRUN APPLE DAYTON MENU 3.1":END
Text found in Volume_125_Dallas_Assortment_3.dsk/BASENAMEFILE.txt:
00001
APPLE POKES
Text found in Volume_125_Dallas_Assortment_3.dsk/BASIC TUTORIAL 1.int:
0 REM
2 DIM Z$(255)
9 GOTO 35
10 PRINT " ":REM SKIP ALINE
11 RETURN
20 FOR I=1 TO 30
22 PRINT " "
23 NEXT I
24 VTAB=1:RETURN
30 INPUT "READY?",B$
32 IF B$="Q" THEN 10000:RETURN
35 GOSUB 20
38 TAB 10:PRINT "BASIC PROGRAMMING 1 "
40 GOSUB 10
42 INPUT "ENTER Y IF YOU WISH INSTRUCTIONS",C$
44 IF C$#"Y" THEN 70
46 PRINT "THIS PROGRAM WILL AID YOU IN LEARNING"
48 PRINT "HOW TO PROGRAM YOUR COMPUTER"
50 PRINT "YOU MAY SCAN THRU THE ENTIRE PROGRAM"
52 PRINT "OR REFER TO ANY SECTION BY USING":GOSUB 10
54 PRINT "THE INDEX.INFORMATION IS PRESENTED ONE"
56 PRINT "SCREENFUL AT A TIME. THE LAST LINE OF"
58 PRINT "EACH SCREEN WILL BE"
59 GOSUB 10
60 PRINT "READY?"
61 GOSUB 10
62 PRINT "WHEN YOU ARE READY TO CONTINUE"
64 PRINT "SIMPLY DEPRESS THE RETURN KEY.IF"
66 PRINT "YOU DESIRE TO END THE CURRENT SESSION"
68 PRINT "ENTER Q THEN RETURN "
70 INPUT "ENTER I IF YOU WISH TO LIST THE INDEX",A$
72 IF A$#"I" THEN 100
74 GOSUB 10
76 PRINT "----INDEX----"
80 PRINT "100-GETTING TO KNOW YOUR COMPUTER"
82 PRINT "200-LINE NUMBERS ,THE END STATEMENT"
84 PRINT "500-NUMBERS"
86 PRINT "705-STRINGS"
88 PRINT "904-VARIABLES"
90 PRINT "1200-ARITHMETIC OPERATIONS"
91 PRINT "1206-ADDITION"
92 PRINT "1208-SUBTRACTION"
93 PRINT "1210-MULTIPLICATION"
94 PRINT "1212-EXPONENTS"
95 PRINT "1302-DIVISION"
96 PRINT "1304-MODULO"
97 PRINT "1500-PROBLEMS"
98 INPUT "ENTER THE INDEX NUMBER",N
99 GOSUB 20:GOTO N
100 GOSUB 20
101 PRINT "GETTING TO KNOW YOUR COMPUTER"
102 PRINT "NOW THAT YOU ARE THE PROUD OWNER":GOSUB 10
103 PRINT "OF A NEW COMPUTER YOU MAY BE SOMEWHAT":GOSUB 10
104 PRINT "APPREHENSIVE SINCE YOU DON"T KNOW HOW":GOSUB 10
105 PRINT "TO MAKE IT DO WHAT YOU WANT IT TO DO":GOSUB 10
106 PRINT "ACTUALLY YOU HAVE NO NEED FOR CONCERN":GOSUB 10
107 PRINT "IF YOU ARE WILLING TO SPEND TIME TO":GOSUB 10
108 PRINT "LEARN THE BASIC RULES OF PROGRAMMING.IN":GOSUB 10
109 PRINT "ADDITION KEEP IN MIND THAT YOUR COMPUTER":GOSUB 10
110 PRINT "ISN"T VERY SMART AND WILL DO ONLY AS":GOSUB 10
111 PRINT "TOLD.SO PRACTICE,DON"T GIVE UP AND":GOSUB 10
112 PRINT "YOU WILL BECOME MASTER OF YOUR COMPUTER":GOSUB 30
200 GOSUB 20
201 PRINT "BASIC PROGRAMMIONG CONCEPTS":GOSUB 10
202 PRINT "--LINE NUMBERS--ALL BASIC":GOSUB 10
203 PRINT "STATEMENTS MUST BEGIN WITH A LINE NUMBER":GOSUB 10
204 PRINT "LINE NUMBERS MUST BE BETWEEN 1 AND":GOSUB 10
205 PRINT "32767.YOU MAY HAVE MORE THAN ONE":GOSUB 10
208 PRINT "STATEMENT PER LINE NUMBER BY SEPARATING":GOSUB 10
209 PRINT "EACH STATEMENT WITH A COLON AS LONG AS":GOSUB 10
210 PRINT "THE TOTAL OF LETTERS DOESN"T EXCEED":GOSUB 10
211 PRINT "150.IT IS ALSO GOOD PROGRAMMING PRACTICE":GOSUB 10
212 PRINT "TO SKIP A FEW NUMBERS BETWEEN EACH":GOSUB 30
300 GOSUB 20
301 PRINT "LINE NUMBER TO ALLOW FOR EXPANSION ":GOSUB 10
302 PRINT "OF YOUR PROGRAM.":GOSUB 10
303 PRINT "EXAMPLE--SUPPOSE YOU WANT TO ADD TWO":GOSUB 10
305 PRINT "NUMBERS AND OUTPUT THE RESULT.":GOSUB 10
306 PRINT "10 TOTAL =3+4":GOSUB 10
307 PRINT "15 PRINT TOTAL":GOSUB 10
308 PRINT "20 END":GOSUB 10
309 PRINT "OR 10 TOTAL=3+4:PRINT TOTAL:END":GOSUB 10
310 PRINT "YOU MAY HAVE NOTICED THAT AN":GOSUB 10
311 PRINT "END STATEMENT HAS BEEN INCLUDED AT":GOSUB 10
312 PRINT "THE END OF THE PROGRAM.THIS":GOSUB 30
400 GOSUB 20
401 PRINT "STATEMENT IS REQUIRED AT THE END OF":GOSUB 10
402 PRINT "ALL YOUR PROGRAMS.EACH LINE MUST BE":GOSUB 10
403 PRINT "ENDED BY DEPRESSING THE CARRIAGE RETURN":GOSUB 10
404 PRINT "BUTTON"
405 FOR I=1 TO 4:GOSUB 10:NEXT I
413 GOSUB 30
500 GOSUB 20
502 PRINT "YOU ARE ALL FAMILIAR WITH WHAT A":GOSUB 10
503 PRINT "NUMBER IS.THE COMPUTER HOWEVER SEPARATES":GOSUB 10
504 PRINT "NUMBERS INTO 2 BASIC CATEGORIES:INTEGERS":GOSUB 10
505 PRINT "AND REAL .EXAMPLES OF INTEGERS":GOSUB 10
506 PRINT "ARE 2,-504,10356.YOU MAY":GOSUB 10
507 PRINT "HAVE NOTICED THAT A COMMA WAS NOT":GOSUB 10
508 PRINT "INCLUDED IN 10356.THE COMPUTER DOES":GOSUB 10
509 PRINT "NOT UNDERSTAND COMMAS IN NUMBERS":GOSUB 10
510 PRINT "AND WILL NOT ALLOW THEM TO BE INSERTED":GOSUB 10
511 PRINT "ADDITIONALLY THE MAXIMUM NUMBERS":GOSUB 10
512 PRINT "ALLOWED ARE -32767 TO 32767.":GOSUB 30
600 GOSUB 20
601 PRINT "THEREFORE YOUR PROGRAM MAY NOT":GOSUB 10
602 PRINT "CONTAIN ANY NUMBER LESS THAN -32767":GOSUB 10
603 PRINT "OR GREATER THAN 32767.ADDITIONALLY":GOSUB 10
604 PRINT "ANY COMPUTATIONS PERFORMED BY YOUR":GOSUB 10
605 PRINT "PROGRAM MAY NOT EXCEED THESE LIMITS":GOSUB 10
607 PRINT "EX--10 X=100*1000 (* MEANS MULTIPLY)":GOSUB 10
608 PRINT "20 PRINT X":GOSUB 10
609 PRINT "30 END":GOSUB 10
610 PRINT "THIS PROGRAM WILL NOT RUN SINCE":GOSUB 10
611 PRINT "100 TIMES 100 EQUALS 100000 WHICH":GOSUB 10
612 PRINT "IS LARGER THAN 32767.":GOSUB 30
700 GOSUB 20
701 PRINT "EXAMPLES OF REAL NUMBERS ARE":GOSUB 10
702 PRINT "1.5,-7.63.THESE":GOSUB 10
703 PRINT "NUMBERS ARE NOT ALLOWED IN":GOSUB 10
704 PRINT "YOUR PROGRAMS.":GOSUB 10
705 PRINT "--STRINGS--":GOSUB 10
706 PRINT "STRINGS ARE LETTERS,WORDS,NUMBERS":GOSUB 10
707 PRINT "OR LITERALLY ANY EXPRESSION YOU CHOOSE":GOSUB 10
708 PRINT "ALL STRINGS MUST BE ENCLOSED BY":GOSUB 10
709 PRINT "QUOTATION MARKS.".EXAMPLES":GOSUB 10
710 PRINT "OF STRINGS ARE "HELLO","12345"":GOSUB 10
711 PRINT "REMEMBER ALL STRINGS MUST BE ENCLOSED":GOSUB 10
712 PRINT "IN DOUBLE QUOTATION MARKS.":GOSUB 30
800 GOSUB 20
801 PRINT "HERE"S A SAMPLE PROGRAM"
802 PRINT "10 PRINT"MY NAME IS COMPUTER,WHAT"S YOURS?"":GOSUB 10
803 PRINT "20 INPUT A$":GOSUB 10
804 PRINT "30 PRINT"HELLO";A$":GOSUB 10
805 PRINT "40 END":GOSUB 10
806 PRINT "YOU MAY BE WONDERING WHAT A$":GOSUB 10
807 PRINT "MEANS.A$ IS USED HERE AS A "
808 PRINT "STRING VARIABLE AND IS USED TO":GOSUB 10
809 PRINT "REPRESENT YOUR NAME IN THIS CASE":GOSUB 10
810 PRINT "THEREFORE THE EXAMPLE WILL DISPLAY":GOSUB 10
812 PRINT "MY NAME IS COMPUTER,WHAT"S YOURS?":GOSUB 30
900 GOSUB 20
901 PRINT "IT WILL THEN TAKE THE NAME YOU HAVE":GOSUB 10
902 PRINT "ENTERED AND DISPLAY HELLO JOHN":GOSUB 10
904 PRINT "--VARIABLES--":GOSUB 10
905 PRINT "AS SHOWN IN THE PREVIOUS EXAMPLE":GOSUB 10
906 PRINT "VARIABLES ARE USED TO REPRESENT STRINGS":GOSUB 10
907 PRINT "OR CAN BE USED TO REPRESENT NUMBERS":GOSUB 10
908 PRINT "THE RULES CONCERNING VARIABLES ARE:":GOSUB 10
909 PRINT "THEY MUST BEGIN WITH A LETTER AND":PRINT
910 PRINT "MAY NOT CONTAIN ANY OF THE FOLLOWING":GOSUB 10
911 PRINT "WORDS AND,AT,MOD,STEP,THEN. NOR "
912 PRINT "CAN THEY BEGIN WITH END,LET,REM.":GOSUB 30
1000 GOSUB 20
1001 PRINT "ADDITIONALLY,THE LAST LETTER":GOSUB 10
1002 PRINT "OF ALL STRING VARIABLES MUST BE":GOSUB 10
1003 PRINT "$. HERE ARE SOME EXAMPLES-":GOSUB 10
1005 PRINT "STRING VARIABLES;A$,NAME$,B2$":GOSUB 10
1006 PRINT "NUMBER VARIABLES;COUNT,AGE,X,Y12":GOSUB 10
1007 PRINT "INCORRECT VARIABLES;17A,END1,CAT":GOSUB 10
1008 PRINT "HERE"S A SAMPLE PROGRAM":GOSUB 10
1009 PRINT "10 PRINT"ENTER YOUR NAME"":GOSUB 10
1010 PRINT "20 INPUT NAME$":GOSUB 10
1011 PRINT "30 PRINT"WHAT YEAR WERE YOU BORN?"":GOSUB 10
1012 PRINT "40 INPUT YEAR":GOSUB 30
1100 GOSUB 20
1101 PRINT "50 AGE=1977-YEAR":GOSUB 10
1102 PRINT "60 PRINT"JOHN YOU ARE",AGE,"YEARS OLD"":GOSUB 10
1103 PRINT "70 END":GOSUB 10
1104 PRINT "THIS EXAMPLE WILL ASK YOUR NAME":GOSUB 10
1105 PRINT "AND BIRTHYEAR,FIGURE OUT YOUR AGE":GOSUB 10
1106 PRINT "AND THEN DISPLAY YOUR NAME AND":GOSUB 10
1107 PRINT "YOUR AGE":GOSUB 10
1108 PRINT "AS WITH ALL EXAMPLES GIVEN IN":GOSUB 10
1109 PRINT "THIS COURSE,TRY TO RUN THIS PROGRAM,":GOSUB 10
1110 PRINT "EXPAND IT AND HAVE FUN WITH IT":GOSUB 30
1200 GOSUB 20
1201 PRINT "--ARITHMETIC OPERATORS":GOSUB 10
1202 PRINT "YOU MAY BE FAMILIAR WITH THE":GOSUB 10
1203 PRINT " FUNCTIONS OF THESE OPERATORS BUT THE":GOSUB 10
1204 PRINT "COMPUTER REQUIRES SPECIAL FORMATS":GOSUB 10
1205 PRINT "TO PERFORM THESE FUNCTIONS":GOSUB 10
1206 PRINT "ADDITION: + ":GOSUB 10
1207 PRINT "EXAMPLE 10 X=3+4 (ANS=7)":GOSUB 10
1208 PRINT "SUBTRACTION : -":GOSUB 10
1210 PRINT "MULTIPLICATION: *":GOSUB 10
1211 PRINT "EXAMPLE 10 X=12*2 (ANS=24)":GOSUB 10
1212 PRINT "EXPONENTS (SQUARES,CUBES,ETC):^(SHIFT N)":GOSUB 30
1300 GOSUB 20
1301 PRINT "EXAMPLE 10 X=4^2 (ANS=16)":GOSUB 10
1302 PRINT "DIVISION: /":GOSUB 10
1304 PRINT "MODULO:MOD (REMAINDER AFTER":GOSUB 10
1305 PRINT "DIVISION OF FIRST EXPRESSION BY SECOND)":GOSUB 10
1306 PRINT "EXAMPLE 10 X=102 MOD 10 (ANS=2)":GOSUB 10
1307 PRINT "ASSIGNMENT: = (ASSIGNS A VALUE":GOSUB 10
1308 PRINT "TO A VARIABLE,LET IS OPTIONAL)":GOSUB 10
1309 PRINT "EXAMPLES X=4 (X NOW EQUALS 4)":GOSUB 10
1310 PRINT "LET NAME$="JOHN"":GOSUB 10
1311 PRINT "HERE"S AN EXAMPLE THAT ILLUSTRATES":GOSUB 10
1312 PRINT "ALL OF THE OPERATORS--":GOSUB 30
1400 GOSUB 20
1401 PRINT "10 A=5+3 (8)":GOSUB 10
1402 PRINT "20 B=A-2 (6)":GOSUB 10
1403 PRINT "30 C=B*A (48)":GOSUB 10
1404 PRINT "40 D=C/12 (4)":GOSUB 10
1405 PRINT "50 E=D^3 (64)":GOSUB 10
1406 PRINT "60 F=E MOD 10 (4) ":GOSUB 10
1407 PRINT "70 LET G=F (4)":GOSUB 10
1408 PRINT "80 END":GOSUB 10
1409 PRINT "THE NUMBERS IN PARENTHESIS ARE":GOSUB 10
1410 PRINT "THE RESULTS OF THE COMPUTATION":GOSUB 10
1411 PRINT "PERFORMED BY EACH STAEMENT."
1412 GOSUB 30
1500 GOSUB 20
1502 PRINT "------PROBLEMS--------- "
1504 PRINT "THIS SECTION WILL HELP YOU TO "
1506 PRINT "REVIEW THE TOPICS PREVIOUSLY COVERED "
1508 PRINT "ASFTER EACH PROBLEM IS PRESENTED,YOU "
1510 PRINT "WILL BE GIVEN A CHANCE TO ANSWER THEN "
1512 PRINT "THE CORRECT ANSWER WILL BE DISPLAYED. "
1513 PRINT "READY? WILL THEN BE DISPLAYED "
1514 PRINT "DEPRESS THE CARRIAGE RETURN AND THE "
1516 PRINT "NEXT PROBLEM WILL APPEAR. "
1519 GOSUB 30
1521 PRINT "1) PRINT THE SUM OF 1,4,18 AND 22 "
1524 GOSUB 2222
1527 PRINT "ANSWER:10 LET X=1+4+18+22:PRINT X "
1530 GOSUB 30
1533 PRINT "2) SUBTRACT 6 FROM THE VARIABLE XYZ "
1536 GOSUB 2222
1539 PRINT "ANSWER: 10 XYZ=XYZ-6 "
1542 GOSUB 30
1545 PRINT "3) MULTIPLY 4 AND 175 "
1548 GOSUB 2222
1551 PRINT "ANSWER: 10 X=4*175 "
1554 GOSUB 30
1557 PRINT "4)PRINT THE VALUE OF 4 CUBED "
1560 GOSUB 2222
1563 PRINT "ANSWER: 10 X=4^3:PRINT X:END "
1566 GOSUB 30
1569 PRINT "5)DIVIDE 12 BY THE VARIABLE X "
1572 GOSUB 2222
1575 PRINT "ANSWER: 10 Y=12/X "
1578 GOSUB 30
1581 PRINT "6)PRINT THE REMAINDER OF 84 DIVIDED BY 10 "
1584 GOSUB 2222
1587 PRINT "ANSWER: 10 PRINT 84 MOD 10 "
1590 GOSUB 30
1593 PRINT "7)ASSIGN RED TO THE VARIABLE COLOR "
1596 GOSUB 2222
1599 PRINT "ANSWER: 10 LET COLOR$="RED" "
1600 GOTO 10000
2222 PRINT " "
2225 INPUT "YOUR ANSWER?",Z$
2227 RETURN
10000 INPUT "DO YOU WISH TO CONTINUE (Y/N) ",I$:IF I$="N" THEN END
10001 PRINT " RUNBASIC TUTORIAL"
Text found in Volume_125_Dallas_Assortment_3.dsk/BASIC TUTORIAL 2.int:
0 REM
2 DIM Z$(255)
9 GOTO 35
10 PRINT " "
11 RETURN
14 GOSUB 30
20 FOR I=1 TO 30
22 PRINT " "
23 NEXT I
24 VTAB=1
25 RETURN
30 INPUT "READY?",B$
32 IF B$="Q" THEN 10000
33 RETURN
35 GOSUB 20
38 TAB 10:PRINT "BASIC PROGRAMMING 2":GOSUB 10
40 GOSUB 10
42 INPUT "ENTER Y IF YOU WISH INSTRUCTIONS",C$
44 IF C$#"Y" THEN 70
46 PRINT "THIS PROGRAM WILL HELP YOU TO LEARN"
48 PRINT "HOW TO PROGRAM YOUR COMPUTER.YOU"
50 PRINT "MAY SCAN THRU THE ENTIRE PROGRAM OR"
52 PRINT "REFER TO ANY SECTION BY USING THE INDEX"
54 PRINT "INFORMATION IS SHOWN ONE SCREENFULL AT "
56 PRINT "A TIME. THE LAST LINE OF EACH SCREEN"
58 PRINT "WILL BE-"
60 PRINT "READY?"
62 PRINT "WHEN YOU ARE READY TO CONTINUE"
64 PRINT "SIMPLY DEPRESS THE RETURN KEY.IF YOU"
66 PRINT "DESIRE TO END THE CURRENT SESSION"
68 PRINT "ENTER Q THEN RETURN"
70 INPUT "ENTER I IF YOU WISH TO LIST THE INDEX",A$
72 IF A$#"I" THEN 100
74 GOSUB 10
76 PRINT "--------INDEX-----------"
78 PRINT "101--LOGICAL OPERATORS"
80 PRINT "107-EQUALITY/INEQUALITY"
82 PRINT "165-GREATER THAN/LESS THAN"
84 PRINT "244-FUNCTIONS"
86 PRINT "262-ABSOLUTE VALUE"
88 PRINT "281-RANDOM NUMBERS"
90 PRINT "306-SIGN OF AN EXPRESSION"
92 PRINT "341-STRING LENGTH"
94 PRINT "361-ASCII STRING VALUE"
96 PRINT "381-PROBLEMS"
97 INPUT "ENTER THE INDEX NUMBER",N
98 GOSUB 20
99 GOTO N
100 GOSUB 20
101 PRINT "-------LOGICAL OPERATORS-------"
102 PRINT "THE LOGICAL OPERATORS AVAILABLE "
103 PRINT "BASICALLY ALLOW YOU TO COMPARE "
104 PRINT "NUMBERS,VARIABLES OR STRINGS TO "
105 PRINT "DETERMINE WHICH IS LARGER,SMALLER OR "
106 PRINT "IF THEY ARE EQUAL "
107 PRINT "EQUALITY: = "
108 PRINT "DETERMINES IF YOUR VARIABLES ARE "
109 PRINT "EXACTLY EQUAL TO EACH OTHER WHETHER "
110 PRINT "THEY ARE NUMBERS OR STRINGS "
111 GOSUB 30
120 GOSUB 20
121 PRINT "EXAMPLE: 10 IF X=4 THEN 100 "
122 PRINT "IN THIS CASE IF THE VARIABLE X IS "
123 PRINT "EQUAL TO 4,THE PROGRAM WILL JUMP "
124 PRINT "TO STATEMENT 100,IF NOT IT WILL "
125 PRINT "EXECUTE THE NEXT CONSECUTIVE STATEMENT "
126 PRINT "FOLLOWING 10. "
127 PRINT "EXAMPLE: 10 IF NAME$=JOHN THEN 1000 "
128 PRINT "THE SAME APPLIES TO THIS EXAMPLE IF "
129 PRINT "THE VARIABLE NAME$ IS EQUAL TO JOHN "
130 PRINT "WHEN WORKING WITH STRINGS IT IS "
131 GOSUB 30
140 GOSUB 20
141 PRINT "IMPORTANT TO REMEMBER THAT THEY MUST "
142 PRINT "BE EXACTLY THE SAME.SPACES,COMMAS, "
143 PRINT "ETC.,MUST APPEAR IN BOTH STRINGS IF "
144 PRINT "THEY ARE TO BE EQUAL "
145 PRINT "INEQUALITY: # OR <> "
146 PRINT "THE SAME LOGIC APPLIES TO TESTS FOR "
147 PRINT "INEQUALITY,USE OF THE ABOVE SYMBOLS "
148 PRINT "WILL TEST IF 2 VARIABLES ARE NOT EQUAL "
149 PRINT "TO EACH OTHER.THE # CAN BE USED "
150 PRINT "FOR NUMERIC OR STRING TERMS. "
151 GOSUB 30
160 GOSUB 20
161 PRINT "THE <> CAN ONLY BE USED FOR NUMERICS. "
162 PRINT "IT CANNOT BE USED FOR STRINGS. "
163 PRINT "EXAMPLES: 10 IF X<>4 THEN 100 "
164 PRINT " 10 IF NAME# "JOHN THEN 100 "
165 PRINT "GREATER THAN :> "
166 PRINT "THIS OPERATOR WILL ALLOW YOU TO "
162 PRINT "DETERMINE IF ONE VARIABLE OR NUMBER "
168 PRINT "IS GREATER THAN ANOTHER.STRINGS CANNOT "
169 PRINT "BE TESTED IN THIS MANNER. "
170 PRINT "EXAMPLE: 10 IF X>4 THEN 100 "
171 GOSUB 30
180 GOSUB 20
181 PRINT "IF THE VALUE OF THE VARIABLE X IS "
182 PRINT "GREATER THAN 4 THEN STATEMENT 100 IS "
183 PRINT "EXECUTED NEXT. "
184 PRINT "LESS THAN: < "
185 PRINT "SAME LOGIC APPLIES AS FOR GREATER THAN "
186 PRINT "EXCEPT CHECKS IF THE FIRST TERM IS "
187 PRINT "LESS THAN THE SECOND "
188 PRINT "GREATER THAN OR EQUAL TO: >= "
189 PRINT "THIS OPERATION IS THE SAME AS GREATER "
190 PRINT "THAN,BUT ALSO INCLUDES THE CASE "
191 GOSUB 30
200 GOSUB 20
201 PRINT "WHERE THE TWO EXPRESSIONS ARE EQUAL. "
202 PRINT "EXAMPLE:10 IF X>=4 THEN 100 "
203 PRINT "IF THE VALUE OF X IS 4 OR GREATER THEN "
204 PRINT "GO TO STATEMENT 100. "
205 PRINT "LESS THAN OR EQUAL TO: <= "
206 PRINT "SAME IDEA AS GREATER THAN OR EQUAL TO "
207 PRINT "THE FIRST EXPRESSION CAN BE LESS THAN OR "
208 PRINT "EQUAL TO THE SECOND.REMEMBER,STRINGS "
209 PRINT "CANNOT BE TESTED WITH >,<,>= OR <=, "
210 PRINT "ONLY NUMERIC VARIABLES OR TERMS CAN "
211 GOSUB 30
220 GOSUB 20
221 PRINT "AND:BOTH EXPRESSIONS MUST BE TRUE "
222 PRINT "USE OF AND WILL ALLOW YOU TO "
223 PRINT "MAKE TWO CHECKS IN ONE STATEMENT "
224 PRINT "SINCE 2 THINGS MUST BE TRUE. "
225 PRINT "EXAMPLE:10 IF X>4 AND X<10 THEN 100. "
226 PRINT "THEREFORE X MUST BE 5,6,7,8,9 FOR "
227 PRINT "BOTH CONDITIONS TO BE SATISFIED. "
228 PRINT "OR: EITHER EXPRESSION IS TRUE "
229 PRINT "SIMILAR TO AND EXCEPT IF EITHER TERM "
230 PRINT "IS TRUE THEN ENTIRE STATEMENT IS TRUE. "
231 GOSUB 30
240 GOSUB 20
241 PRINT "EXAMPLE: 10 IF X>4 OR X<4 THEN 100 "
242 PRINT "THIS STATEMENT IS ALWAYS TRUE UNLESS X "
243 PRINT "IS EQUAL TO 4. "
244 PRINT "-------FUNCTIONS--------- "
245 PRINT "THE BASIC FUNCTIONS AVAILABLE WILL "
246 PRINT "ALLOW YOU TO PERFORM VARIOUS TYPES OF "
247 PRINT "TASKS. THE ONE THING THEY ALL HAVE IN "
248 PRINT "COMMON HOWEVER IS THAT THE RESULT OF ANY "
249 PRINT "FUNCTIONAL OPERATION IS NUMERIC. THE "
250 PRINT "GENERAL FORMAT FOR THESE OPERATIONS IS "
251 GOSUB 30
260 GOSUB 20
261 PRINT "FUNCTION (VARIABLE) "
262 PRINT "ABSOLUTE VALUE: ABS(X) "
263 PRINT "THE ABSOLUTE VALUE OF A NUMBER IS ITS "
264 PRINT "MAGNITUDE WHETHER IT IS POSITIVE OR "
265 PRINT "NEGATIVE. FOR EXAMPLE,THE ABSOLUTE "
266 PRINT "VALUE OF 3 IS 3,AND THE ABSOLUTE VALUE "
267 PRINT "OF -3 IS ALSO 3. "
268 PRINT "EXAMPLE: 10 X=-4 "
269 PRINT " 15 Y=ABS(X)+1 "
270 PRINT "SO,AFTER EXECUTING STATEMENT 15,Y=5 "
271 GOSUB 30
280 GOSUB 20
281 PRINT "GENERATION OF RANDOM NUMBERS: RND(X) "
282 PRINT "RANDOM NUMBERS AS THEIR NAME IMPLIES "
283 PRINT "ARE NUMBERS CHOSEN AT RANDOM FROM "
284 PRINT "A SEQUENCE OF NUMBERS. IN THIS CASE "
285 PRINT "THE VARIABLE X DETERMINES THE RANGE OF "
286 PRINT "NUMBERS FROM WHICH THE RANDOM NUMBER "
287 PRINT "IS SELECTED. IF X IS POSITIVE THE RANDOM "
288 PRINT "NUMBER WILL BE BETWEEN 0 AND X-1. "
289 PRINT "IF NEGATIVE,IT WILL BE BETWEEN 0 "
290 PRINT "AND X+1. "
291 GOSUB 30
300 GOSUB 20
301 PRINT "EXAMPLE: 10 Y=4 "
302 PRINT " 15 A=RND(Y)+6 "
303 PRINT "AFTER EXECUTING STATEMENT 15,A WILL BE "
304 PRINT "BETWEEN 6 AND 9 DEPENDING ON THE "
305 PRINT "RANDOM NUMBER GENERATED. "
306 PRINT "SIGN OF AN EXPRESSION: SGN (X) "
307 PRINT "USE OF THIS EXPRESSION WILL ALLOW YOU TO "
308 PRINT "DETERMINE IF AN EXPRESSION IS POSITIVE "
309 PRINT "OR NEGATIVE (LESS THAN OR GREATER THAN "
310 PRINT "ZERO). IF THE EXPRESSION IS NEGATIVE THE "
311 GOSUB 30
320 GOSUB 20
321 PRINT "RESULT WILL BE -1. IF THE "
322 PRINT "TERM IS POSITIVE THE RESULT WILL BE +1. "
323 PRINT "IF THE EXPRESSSION IS EQUAL TO 0,THE SGN "
324 PRINT "OPERATION WILL ALSO YIELD A 0. "
325 PRINT "EXAMPLE: 10 R=5 "
326 PRINT " 15 S=-7 "
327 PRINT " 20 M=SGN(R)+SGN(S) "
328 PRINT "M IS NOW EQUAL TO 0 SINCE SGN(R)=1 "
329 PRINT "AND SGN(S)=-1 "
330 PRINT " "
331 GOSUB 30
340 GOSUB 20
341 PRINT "LENGTH OF A STRING:LEN(X$) "
342 PRINT "USE OF THIS FUNCTION WILL GIVE YOU "
343 PRINT "THE AMOUNT OF CHARACTERS (LETTERS OR "
344 PRINT "NUMBERS) IN A STRING VARIABLE. "
345 PRINT "EXAMPLE: 10 NAME1$="ROBERT" "
346 PRINT " 15 NAME2$="DON" "
347 PRINT " 20 F=LEN(NAME1$)-LEN(NAME2$) "
348 PRINT "THEREFORE F=3 SINCE ROBERT IS 3 "
349 PRINT "LETTERS LONGER THAN DON. "
350 PRINT " "
351 GOSUB 30
360 GOSUB 20
361 PRINT "ASCII VALUE OF A STRING: ASC(X$) "
362 PRINT "ASCII IS BASICALLY A CODE WHICH "
363 PRINT "REPRESENTS LETTERS,NUMBERS AND OTHER "
364 PRINT "SPECIAL CHARACTERS BY 2 DIGITS. USE "
365 PRINT "OF THIS FUNCTION WILL THEREFORE "
366 PRINT "GIVE YOU THE ASCII EQUIVALENT OF "
367 PRINT "YOUR STRING.IF THE STRING CONTAINS "
368 PRINT "MORE THAN ONE CHARACTER ONLY THE "
369 PRINT "FIRST CHARACTER WILL BE CONVERTED "
370 PRINT "TO ITS DECIMAL ASCII EQUIVALENT. "
371 GOSUB 30
380 GOSUB 20
381 PRINT "------PROBLEMS------ "
382 PRINT "THIS SECTION WILL HELP YOU TO "
383 PRINT "REVIEW THE TOPICS PREVIOUSLY COVERED. "
384 PRINT "AFTER EACH PROBLEM IS PRESENTED,YOU "
385 PRINT "WILL BE GIVEN A CHANCE TO ANSWER. THE "
386 PRINT "CORRECT ANSWER WILL THEN BE DISPLAYED. "
387 PRINT " READY? WILL THEN BE DISPLAYED.DEPRESS "
388 PRINT "THE CARRIAGE RETURN AND THE NEXT PROBLEM "
389 PRINT "WILL APPEAR. "
390 PRINT "1- IF A IS EQUAL TO 47 GO TO STATEMENT 19."
392 GOSUB 1111
395 PRINT "ANSWER: 10 IF A=47 THEN 19 "
398 GOSUB 30
401 PRINT "2- IF CAR IS EQUAL TO FORD GO TO 20 "
404 GOSUB 1111
407 PRINT "ANSWER: 10 IF CAR$="FORD" THEN 20 "
408 GOSUB 30
411 PRINT "3- IF C IS NOT EQUAL TO 7 GO TO 50 "
414 GOSUB 1111
417 PRINT "ANSWER: 10 IF C <> 7 THEN 50 "
420 GOSUB 30
418 PRINT "4- IF TREE IS NOT OAK THEN GO TO 75 "
426 GOSUB 1111
429 PRINT "ANSWER: 10 IF TREE$ # "OAK" THEN 75 "
432 GOSUB 30
435 PRINT "5- IF F2 IS GREATER THAN 12 GO TO 85 "
438 GOSUB 1111
441 PRINT "ANSWER: 10 IF F2>12 THEN 85 "
444 GOSUB 30
447 PRINT "6- IF AGE IS LESS THAN 18 GO TO 76 "
450 GOSUB 1111
453 PRINT "ANSWER: 10 IF AGE < 18 THE 76 "
456 GOSUB 30
459 PRINT "7- IF B IS GREATER THAN OR EQUAL TO 10 GO TO 15"
462 GOSUB 1111
465 PRINT "ANSWER: 10 IF B >= 10 THEN 15 "
468 GOSUB 30
471 PRINT "8- IF Y IS A NEGATIVE NUMBER OR ZERO GO TO 80."
474 GOSUB 1111
477 PRINT "ANSWER: 10 IF Y <= 0 THEN 80 "
480 GOSUB 30
483 PRINT "9- IF X IS BETWEEN 10 AND 20 GO TO 37 "
486 GOSUB 1111
489 PRINT "ANSWER: 10 IF X > 9 AND X<21 THEN 37 "
492 GOSUB 30
495 PRINT "10- IF L IS 10 OR 15 GO TO STATEMENT 100 "
498 GOSUB 1111
501 PRINT "ANSWER: 10 IF L=10 OR L=15 THEN 100 "
504 GOSUB 30
507 PRINT "11- PRINT THE ABSOLUTE VALUE OF -417 "
510 GOSUB 1111
513 PRINT "ANSWER: 10 PRINT ABS(-417) "
517 PRINT "12- PRINT A RANDOM NUMBER BETWEEN 0 AND 45 "
520 GOSUB 1111
523 PRINT "ANSWER: 10 PRINT RND(46) "
526 GOSUB 30
529 PRINT "13- PRINT THE SIGN OF VARIABLE T "
532 GOSUB 1111
535 PRINT "ANSWER: 10 PRINT SGN(T) "
538 GOSUB 30
541 PRINT "14- PRINT THE AMOUNT OF LETTERS IN ELEPHANT"
544 GOSUB 1111
547 PRINT "ANSWER 10 X$="ELEPHANT":PRINT LEN(X$) "
550 GOSUB 30
553 PRINT "15- FIND THE ASCII VALUE OF THE LETTER Q "
556 GOSUB 1111
559 PRINT "ANSWER: 10 Y$="Q":PRINT ASC(Y$) "
600 GOTO 10000
1111 PRINT " "
1112 INPUT "YOUR ANSWER ",Z$
1113 RETURN
10000 PRINT :PRINT :INPUT "DO YOU WISH TO CONTINUE (Y/N) ",I$:IF I$="N" THEN END
10002 PRINT " RUNBASIC TUTORIAL"
Text found in Volume_125_Dallas_Assortment_3.dsk/BASIC TUTORIAL 3.int:
0 REM
2 DIM Z$(255)
9 GOTO 35
10 PRINT " "
11 RETURN
14 GOSUB 30
20 FOR I=1 TO 30
22 PRINT " "
23 NEXT I
24 VTAB=1
25 RETURN
30 INPUT "READY?",B$
32 IF B$="Q" THEN 10000
33 RETURN
35 GOSUB 20
38 TAB 10:PRINT "BASIC PROGRAMMING 3":GOSUB 10
40 GOSUB 10
42 INPUT "ENTER Y IF YOU WISH INSTRUCTIONS",C$
44 IF C$#"Y" THEN 70
46 PRINT "THIS PROGRAM WILL HELP YOU TO LEARN"
48 PRINT "HOW TO PROGRAM YOUR COMPUTER.YOU"
50 PRINT "MAY SCAN THRU THE ENTIRE PROGRAM OR"
52 PRINT "REFER TO ANY SECTION BY USING THE INDEX"
54 PRINT "INFORMATION IS SHOWN ONE SCREENFUL AT"
56 PRINT "A TIME. THE LAST LINE OF EACH SCREEN"
58 PRINT "WILL BE-"
60 PRINT "READY? "
62 PRINT "WHEN YOU ARE READY TO CONTINUE"
64 PRINT "SIMPLY DEPRESS THE RETURN KEY--IF YOU"
66 PRINT "DESIRE TO END THE CURRENT SESSION"
68 PRINT "ENTER Q THEN RETURN"
70 INPUT "ENTER I IF YOU WISH TO LIST THE INDEX",A$
72 IF A$#"I" THEN 100
74 GOSUB 10
76 PRINT "--------INDEX-----------"
78 PRINT "101--DIMENSION"
80 PRINT "121--LOOPING"
82 PRINT "185--SUBROUTINES"
84 PRINT "221--GOTO"
86 PRINT "241--IF...THEN"
88 PRINT "281--INPUT"
90 PRINT "321--PRINT"
92 PRINT "349--TAB & VTAB"
94 PRINT "381--PROBLEMS"
97 INPUT "ENTER THE INDEX NUMBER",N
98 GOSUB 20
99 GOTO N
100 GOSUB 20
101 PRINT "DIMENSION: DIM VARIABLE(SIZE) "
102 PRINT "THE DIMENSION STATEMENT ALLOWS YOU "
103 PRINT "TO ALLOCATE MEMORY FOR STORAGE OF "
104 PRINT "THE VALUE OF SPECIFIC VARIABLES. "
105 PRINT "NUMERIC OR STRING VARIABLES MAY "
106 PRINT "BE DIMENSIONED. THE MAXIMUM SIZE OF A "
107 PRINT "STRING ARRAY IS 255. THE SIZE OF AN "
108 PRINT "ARRAY MUST ALWAYS BE A POSITIVE "
109 PRINT "INTEGER. "
110 PRINT "EXAMPLE: DIM Z(50) DIM NAME$(20) "
111 GOSUB 30
120 GOSUB 20
121 PRINT "LOOPING: FOR.....NEXT "
122 PRINT "THE ABILITY TO PERFORM REPETITIVE "
123 PRINT "TASKS (LOOPING) IS ONE OF THE MOST "
124 PRINT "POWERFUL TOOLS PROVIDED BY THE COMPUTER. "
125 PRINT "THE FORMAT OF THE FOR...NEXT LOOP IS "
126 PRINT " FOR A=B TO C STEP D "
127 PRINT " STATEMENTS "
128 PRINT " NEXT A "
129 PRINT "A IS THE VARIABLE WHICH IS OPERATED ON "
130 PRINT "DURING THE LOOP.(MUST BE NUMERIC) "
131 GOSUB 30
140 GOSUB 20
141 PRINT "B IS THE INITIAL VALUE TO WHICH A IS "
142 PRINT "SET.. "
143 PRINT "C IS THE UPPER LIMIT OF THE LOOP. "
144 PRINT "D IS THE STEP OR AMOUNT WHICH WILL "
145 PRINT "BE ADDED TO A EACH PASS THRU THE "
146 PRINT "LOOP.. "
147 PRINT "STATEMENTS ARE ALL OF THE OPERATIONS "
148 PRINT "PERFORMED DURING THE LOOP. "
149 PRINT "NEXT INDICATES THE END OF THE LOOP "
150 PRINT "THEREFORE, A WILL BE SET EQUAL "
151 GOSUB 30
160 GOSUB 20
161 PRINT "TO B ,THE STATEMENTS WILL BE EXECUTED, "
162 PRINT "AT THE NEXT STATEMENT,CONTROL WILL "
163 PRINT "JUMP BACK TO THE FOR STATEMENT.THEN, "
164 PRINT "THE STEP D WILL BE ADDED TO A AND THE "
165 PRINT "CYCLE WILL REPEAT UNTIL THE VALUE OF A "
166 PRINT "REACHES THE UPPER LIMIT C. B,C,D CAN "
167 PRINT "BE NUMBERS OR NUMERIC VARIABLES.IF THE "
168 PRINT "DESIRED STEP IS +1,STEP D MAY BE OMITTED "
169 PRINT "FROM THE STATEMENT "
170 PRINT "YOU MAY ALSO HAVE LOOPS WITHIN LOOPS "
171 GOSUB 30
180 GOSUB 20
181 PRINT "EX: PRINT ALL NUMBERS BETWEEN 1 & 100 "
182 PRINT " 10 FOR I=1 TO 100:PRINT I:NEXT I "
183 PRINT "PRINT ALL ODD NUMBERS BETWEEN 1 AND 100. "
184 PRINT "10 FOR I=1 TO 100 STEP 2:PRINT I: NEXT I "
185 PRINT "----------SUBROUTINES---------- "
186 PRINT "SUBROUTINES ARE BASICALLY SMALL "
187 PRINT "PROGRAMS WITHIN YOUR MAIN PROGRAM. "
188 PRINT "THEY ARE INTENDED FOR USE IN SITUATIONS "
189 PRINT "WHERE YOU MUST PERFORM THE SAME "
190 PRINT "TASK SEVERAL TIMES DURING THE PROGRAM "
191 GOSUB 30
200 GOSUB 20
201 PRINT "THE LAST STATEMENT IN ANY SUBROUTINE IS "
202 PRINT "RETURN WHICH RETURNS CONTROL BACK TO "
203 PRINT "THE MAIN PROGRAM. SUBROUTINES ARE CALLED "
204 PRINT "BY THE STATEMENT GOSUB X WHERE "
205 PRINT "X IS THE NUMBER OF THE FIRST STATEMENT "
206 PRINT "OF THE SUBROUTINE. "
207 PRINT "EXAMPLE: 10 (MAIN PROGRAM INPUTS DATA) "
208 PRINT " 20 GOSUB 40 "
209 PRINT " 40 (FORMAT DATA AND OUTPUT) "
210 PRINT " 50 RETURN "
211 GOSUB 30
220 GOSUB 20
221 PRINT "----------GOTO---------- "
222 PRINT "AS IMPLIED,THE GOTO STATEMENT CAUSES "
223 PRINT "PROGRAM CONTROL TO GO TO THE STATEMENT "
224 PRINT "SPECIFIED. THE GENERAL FORM IS GOTO X "
225 PRINT "WHERE X IS EITHER A NUMBER OR "
226 PRINT "A VARIABLE WITH A NUMERIC VALUE. "
227 PRINT "EXAMPLES: 10 GOTO 40 "
228 PRINT " 20 GOTO B2+B7 "
229 PRINT "10 CAUSES A JUMP TO LINE 40. 20 JUMPS "
230 PRINT "TO LINE NUMBER EQUAL TO THE VALUE B2+B7 "
231 GOSUB 30
240 GOSUB 20
241 PRINT "----------IF....THEN---------- "
242 PRINT "THE IF....THEN STATEMENT PERFORMS A TEST "
243 PRINT "TO DETERMINE WHICH STATEMENT IS TO BE "
244 PRINT "EXECUTED NEXT. THE GENERAL FORM IS "
245 PRINT "IF A THEN B WHERE A IS THE "
246 PRINT "EXPRESSION TO BE TESTED AND B IS THE "
247 PRINT "STATEMENT WHICH WILL BE EXECUTED NEXT IF "
248 PRINT "A IS TRUE. IF A IS NOT TRUE THE NEXT "
249 PRINT "CONSECUTIVE STATEMENT WILL BE EXECUTED. "
250 PRINT " "
251 GOSUB 30
260 GOSUB 20
261 PRINT "EXAMPLES: 50 IF Y>Z THEN 150 "
262 PRINT "70 IF ANSWER$ # 'YES' THEN Q=14 "
263 PRINT "90 IF X>10 THEN GOSUB 100 "
264 PRINT "STATEMENT 50 CAUSES A JUMP TO LINE 150 "
265 PRINT "IF THE VARIABLE Y IS GREATER THAN Z. "
266 PRINT "70 SETS THE VARIABLE Q EQUAL TO 14 "
267 PRINT "IF ANSWER$ IS NOT YES. "
268 PRINT "90 CAUSES A JUMP TO SUBROUTINE 100 IF "
269 PRINT "THE VARIABLE X IS GREATER THAN 10. "
270 PRINT " "
271 GOSUB 30
280 GOSUB 20
281 PRINT "-----------INPUT----------- "
282 PRINT "THE INPUT STATEMENT IS THE METHOD USED "
283 PRINT "TO ENTER DATA TO THE COMPUTER DURING "
284 PRINT "PROGRAM EXECUTION. THE GENERAL FORM "
285 PRINT "IS INPUT A,B,C WHERE A,B AND C "
286 PRINT "ARE THE VARIABLES TO BE INPUTTED "
287 PRINT "EXAMPLES "
288 PRINT " 10 INPUT X2,Y4 "
289 PRINT " 20 INPUT NAME$ "
290 PRINT " 30 INPUT DAY,MONTH,YEAR "
291 GOSUB 30
300 GOSUB 20
301 PRINT "YOU MAY ALSO INCLUDE A MESSAGE "
302 PRINT "TO BE DISPLAYED AS PART OF THE "
303 PRINT "INPUT STATEMENT. THE GENERAL FORM "
304 PRINT "IS INPUT "MESSAGE",A WHERE "
305 PRINT "MESSAGE WILL BE DISPLAYED AND THE "
306 PRINT "VARIABLE A WILL BE ENTERED. "
307 PRINT "EXAMPLES: 10 INPUT "YOUR AGE",YRS "
308 PRINT " 20 INPUT "ARE YOU DONE?",YN$ "
309 PRINT " 30 INPUT "WHAT TIME IS IT?",TM "
310 PRINT " 40 INPUT "COST",DLRS "
311 GOSUB 30
312 GOSUB 20
321 PRINT "----------PRINT---------- "
322 PRINT "THE PRINT STATEMENT IS USED TO DISPLAY "
323 PRINT "INFORMATION ON THE SCREEN. THE FORMAT "
324 PRINT "IS PRINT V1,V2,S1$;S2$,"TEXT" "
325 PRINT "WHERE V1 AND V2 ARE VARIABLES,S1$ AND "
326 PRINT "S2$ ARE STRINGS,AND TEXT IS ANY "
327 PRINT "INFORMATION YOU DESIRE. COMMAS BETWEEN "
328 PRINT "ELEMENTS CAUSE DATA TO BE OUTPUTTED "
329 PRINT "IN 5 LEFT JUSTIFIED COLUMNS. A SEMI "
330 PRINT "COLON PREVENTS SPACES FROM BEING "
331 GOSUB 30
340 GOSUB 20
341 PRINT "INSERTED BETWEEN ELEMENTS. IF A COMMA "
342 PRINT "OR SEMI-COLON IS NOT INCLUDED AT "
343 PRINT "THE END OF THE LINE,A CARRIAGE RETURN "
344 PRINT "WILL ALSO BE INCLUDED. "
345 PRINT "EXAMPLES: 10 PRINT "HELLO",NAME$, "
346 PRINT " 20 PRINT "TODAY IS";M$;D$;YR; "
347 PRINT " 30 PRINT X,"+",Y,"=",Z "
348 PRINT " 40 PRINT " " (SKIPS A LINE) "
349 PRINT "THE LOCATION ON THE SCREEN WHERE THE "
350 PRINT "INFORMATION IS TO BE DISPLAYED CAN "
351 GOSUB 30
360 GOSUB 20
361 PRINT "BE SET THRU THE USE OF THE TAB AND VTAB "
362 PRINT "STATEMENTS. TAB SETS THE HORIZONTAL "
363 PRINT "POSITION(1-40).VTAB DETERMINES THE "
364 PRINT "VERTICAL POSITION(1-24).THE "
365 PRINT "FORM IS TAB X OR VTAB X WHERE "
366 PRINT "X IS A NUMBER OR NUMERIC VARIABLE "
367 PRINT "EXAMPLES: "
368 PRINT " 20 TAB 1:VTAB 1(TOP LEFT CORNER) "
369 PRINT " 30 TAB 40:VTAB 24(BOTTOM RT. CORNER) "
370 PRINT " 40 TAB A+4 "
371 GOSUB 30
380 GOSUB 20
381 PRINT "------PROBLEMS------ "
382 PRINT "THIS SECTION WILL HELP YOU TO "
383 PRINT "REVIEW THE TOPICS PREVIOUSLY COVERED. "
384 PRINT "AFTER EACH PROBLEM IS PRESENTED,YOU "
385 PRINT "WILL BE GIVEN A CHANCE TO ANSWER. THE "
386 PRINT "CORRECT ANSWER WILL THEN BE DISPLAYED. "
387 PRINT " READY? WILL THEN BE DISPLAYED.DEPRESS "
388 PRINT "THE CARRIAGE RETURN AND THE NEXT PROBLEM "
389 PRINT "WILL APPEAR. "
400 PRINT "1-RESERVE 12 BYTES FOR A STRING VARIABLE"
403 GOSUB 1111
406 PRINT "ANSWER: 10 DIM A$(12)"
409 GOSUB 30
412 PRINT "PRINT ALL EVEN NUMBERS BETWEEN 2 AND 100"
413 PRINT "(REQUIRES 5 STATEMENTS)"
415 GOSUB 1111
416 FOR I=1 TO 4:INPUT Z:NEXT I
418 PRINT "ANSWER:10 FOR I=1 TO 50"
419 PRINT " 20 E=2*I"
421 PRINT " 25 PRINT E"
422 PRINT " 30 NEXT I"
425 PRINT " 35 END"
427 GOSUB 30
430 PRINT "3-PERFORM PROBLEM 2 AGAIN USING A"
431 PRINT "SUBROUTINE. (REQUIRES 7 STATEMENTS)"
433 GOSUB 1111
434 FOR I=1 TO 6:INPUT Z:NEXT I
436 PRINT "ANSWER:10 FOR I=1 TO 50"
439 PRINT " 20 GOSUB 40"
442 PRINT " 30 NEXT I"
445 PRINT " 40 E=2*I"
446 PRINT " 45 PRINT E"
448 PRINT " 50 RETURN"
449 PRINT " 55 END"
451 GOSUB 30
454 PRINT "4-JUMP TO STATEMENT 27"
457 GOSUB 1111
460 PRINT "ANSWER:10 GOTO 27"
463 GOSUB 30
466 PRINT "5-JUMP TO STATEMENT 51 IF X IS EQUAL TO 4"
469 GOSUB 1111
472 PRINT "ANSWER:10 IF X=4 THEN 51"
475 GOSUB 30
478 PRINT "6-READ IN 5 NUMERIC VARIABLES"
481 GOSUB 1111
484 PRINT "ANSWER:INPUT A,B,C,D,E"
487 GOSUB 30
490 PRINT "7-ASK FOR AND READ IN A NAME"
493 GOSUB 1111
496 PRINT "ANSWER:10INPUT"WHATS YOUR NAME?",N$"
499 GOSUB 30
502 PRINT "8-DISPLAY HAPPY BIRTHDAY!"
505 GOSUB 1111
508 PRINT "ANSWER:10 PRINT'HAPPY BIRTHDAY!'"
511 GOSUB 30
514 PRINT "DISPLAY A ZERO IN THE CENTER OF THE SCREEN"
517 GOSUB 1111
520 PRINT "ANSWER:10 TAB 20:VTAB 12:PRINT '0'"
522 GOSUB 30
523 PRINT "10-READ IN 5 LENGTHS IN FEET,"
526 PRINT "CONVERT THEM TO INCHES,AND DISPLAY"
527 PRINT "THE RESULTS.(REQUIRES 10 STATEMENTS)"
529 GOSUB 1111
530 FOR I=1 TO 9:INPUT Z:NEXT I
532 PRINT "ANSWER: 10 DIM A(4),B(4)"
535 PRINT " 20 FOR Y=1 TO 5"
538 PRINT " 30 INPUT'ENTER THE LENGTH',A"
541 PRINT " 40 B=A*12"
544 PRINT " 50 GOSUB 100"
547 PRINT " 60 NEXT Y"
550 PRINT " 70 GOTO 150"
553 PRINT " 100 PRINT'ANSWER IS',B,'INCHES'"
556 PRINT " 110 RETURN"
559 PRINT " 150 END"
560 PRINT " ":PRINT " "
600 GOTO 10000
1111 PRINT " "
1112 INPUT "YOUR ANSWER ",Z$
1113 RETURN
10000 PRINT :PRINT :INPUT "DO YOU WISH TO CONTINUE (Y/N) ",I$:IF I$="N" THEN END
10002 PRINT " RUNBASIC TUTORIAL"
Text found in Volume_125_Dallas_Assortment_3.dsk/BASIC TUTORIAL 4.int:
0 REM
2 DIM Z$(255)
9 GOTO 35
10 PRINT " "
11 RETURN
14 GOSUB 30
20 FOR I=1 TO 30
22 PRINT " "
23 NEXT I
24 VTAB=1
25 RETURN
30 INPUT "READY?",B$
32 IF B$="Q" THEN 10000
33 RETURN
35 GOSUB 20
38 TAB 10:PRINT "BASIC PROGRAMMING 4":GOSUB 10
40 GOSUB 10
42 INPUT "ENTER Y IF YOU WISH INSTRUCTIONS",C$
44 IF C$#"Y" THEN 70
46 PRINT "THIS PROGRAM WILL HELP YOU TO LEARN"
48 PRINT "HOW TO PROGRAM YOUR COMPUTER.YOU"
50 PRINT "MAY SCAN THRU THE ENTIRE PROGRAM OR"
52 PRINT "REFER TO ANY SECTION BY USING THE INDEX"
54 PRINT "INFORMATION IS SHOWN ONE SCREENFULL AT "
56 PRINT "A TIME. THE LAST LINE OF EACH SCREEN"
58 PRINT "WILL BE-"
60 PRINT "READY?"
62 PRINT "WHEN YOU ARE READY TO CONTINUE"
64 PRINT "SIMPLY DEPRESS THE RETURN KEY.IF YOU"
66 PRINT "DESIRE TO END THE CURRENT SESSION"
68 PRINT "ENTER Q THEN RETURN"
70 INPUT "ENTER I IF YOU WISH TO LIST THE INDEX",A$
72 IF A$#"I" THEN 100
74 GOSUB 10
76 PRINT "--------INDEX-----------"
78 PRINT "121--GR (GRAPHICS MODE)"
80 PRINT "141--TEXT(TEXT MODE)"
82 PRINT "161--COLOR (SET COLORS)"
84 PRINT "181--COLOR TABLE (REFERENCE)"
86 PRINT "221--PLOT (SET COLORS AT A LOCATION)"
88 PRINT "261--SCRN (DETERMINES SCREEN COLOR)"
90 PRINT "301--HLIN (DRAW HORIZONTAL LINE)"
92 PRINT "341--VLIN (DRAW VERTICAL LINE)"
93 TEXT
94 PRINT "381--PROBLEMS"
97 INPUT "ENTER THE INDEX NUMBER",N
98 GOSUB 20
99 GOTO N
100 GOSUB 20
101 PRINT "THIS CASSETTE DEALS WITH THE "
102 PRINT "GRAPHIC AND COLOR CAPABILITIES OF "
103 PRINT "YOUR COMPUTER. AFTER SOME OF THE "
104 PRINT "EXAMPLES ARE PRESENTED,THE RESULTS "
105 PRINT "WILL BE DISPLAYED. "
106 PRINT " "
107 PRINT " "
108 PRINT " "
109 PRINT " "
110 PRINT " "
111 GOSUB 30
120 GOSUB 20
121 PRINT "THE GR STATEMENT PUTS THE SYSTEM WITH "
122 PRINT "THE EXCEPTION OF THE BOTTOM 4 LINES IN "
123 PRINT "THE GRAPHICS MODE. THOSE 4 LINES CAN "
124 PRINT "STILL BE USED FOR TEXT. "
125 PRINT "THE ENTIRE SCREEN MAY BE SET TO GRAPHICS "
126 PRINT "BY USING GR:POKE -16302,0 "
127 PRINT "IN EITHER CASE,THE COLOR IS SET TO "
128 PRINT "BLACK UNLESS OTHERWISE SPECIFIED. "
129 PRINT "EXAMPLE: SET GRAPHICS MODE "
130 PRINT " 10 GR "
131 GOSUB 30
140 GOSUB 20
141 PRINT "----------TEXT---------- "
142 PRINT "THE TEXT STATEMENT CANCELS THE GR "
143 PRINT "STATEMENT AND REVERTS THE DISPLAY "
144 PRINT "MODE BACK TO THE ALL TEXT MODE. "
145 PRINT "THE FORMAT IS: X TEXT "
146 PRINT "WHERE X IS THE STATEMENT NUMBER. "
147 PRINT "YOU MAY ALSO CLEAR THE SCREEN AND "
148 PRINT "POSITION THE CURSOR AT THE UPPER LEFT "
149 PRINT "CORNER BY USING "
150 PRINT " X TEXT:CALL -936 "
151 GOSUB 30
160 GOSUB 20
161 PRINT "----------COLOR---------- "
162 PRINT "THE COLOR STATEMENT IS USED TO SET THE "
163 PRINT "SCREEN COLOR FOR FUTURE GRAPHICS "
164 PRINT " X COLOR=Y WHERE X IS "
165 PRINT "THE STATEMENT NUMBER AND Y IS "
166 PRINT "A NUMBER OR NUMERIC VARIABLE WHOSE "
167 PRINT "VALUE IS BETWEEN 0 AND 15. "
168 PRINT "EXAMPLE: ENABLE COLOR 6 FOR FUTURE USE. "
169 PRINT " 10 GR:COLOR=6"
170 PRINT " "
171 GOSUB 30
180 GOSUB 20
181 PRINT "----------TABLE OF COLORS-------- "
182 PRINT "THE SCREEN COLOR CAN BE SET TO THE "
183 PRINT "FOLLOWING: COLOR= "
184 PRINT "0=BLACK 1=MAGENTA 2=DARK BLUE "
185 PRINT "3=LIGHT PURPLE 4=DARK GREEN 5=GREY "
186 PRINT "6=MEDIUM BLUE 7=LIGHT BLUE "
187 PRINT "8=BROWN 9=ORANGE 10=GREY "
188 PRINT "11=PINK 12=GREEN 13=YELLOW "
189 PRINT "14-BLUE/GREEN 15=WHITE "
190 PRINT "THE NEXT EXAMPLE WILL SHOW ALL COLORS "
191 GOSUB 30
200 GOSUB 20
201 PRINT "EXAMPLE: 10 GR "
202 PRINT " 20 FOR I=0 TO 15 "
203 PRINT " 30 COLOR=I:VLIN 0,39 AT I "
204 PRINT " 40 PRINT'COLOR=;I "
205 PRINT " 50 NEXT I "
206 PRINT "DEPRESS RETURN TO START DEMONSTRATION. "
207 INPUT Z$
208 GR
209 FOR I=0 TO 15
210 COLOR= I:VLIN O,39 AT I
211 PRINT "COLOR=";I
212 PRINT "DEPRESS RETURN TO CONTINUE DEMONSTRATION"
213 INPUT Z$
214 NEXT I
215 GOSUB 30
216 TEXT
220 GOSUB 20
221 PRINT "----------PLOT---------- "
222 PRINT "THE PLOT STATEMENT ALLOWS YOU TO "
223 PRINT "PLOT A SPECIFIED COLOR AT A SPECIFIC "
224 PRINT "LOCATION ON THE SCREEN. THE FORMAT "
225 PRINT "IS A COLOR=B "
226 PRINT " C PLOT D,E WHERE A AND C ARE "
227 PRINT "STATEMENT NUMBERS,B IS THE SELECTED "
228 PRINT "COLOR, D IS THE HORIZONTAL LOCATION AND "
229 PRINT "E IS THE VERTICAL LOCATION. THE "
230 PRINT "HORIZONTAL RANGE IS 0 TO 39 "
231 GOSUB 30
240 GOSUB 20
241 PRINT "THE VERTICAL RANGE IS 0 TO 39 OR "
242 PRINT "0 TO 47 IF THE ENTIRE SCREEN IS USED FOR "
243 PRINT "GRAPHICS. 0,0 IS THE TOP LEFT CORNER. "
244 PRINT "0,39 OR 47 IS BOTTOM RIGHT CORNER. "
245 PRINT "EXAMPLE:DISPLAY A PINK X ON THE SCREEN "
246 PRINT " 10 GR:COLOR=11 "
247 PRINT " 20 FOR I=0 TO 39 "
248 PRINT " 25 PLOT I,I "
249 PRINT " 30 PLOT 39-I,I "
250 PRINT " 40 NEXT I "
251 PRINT "DEPRESS RETURN FOR A DEMONSTRATION"
252 INPUT Z$
253 GR :COLOR= 11
254 FOR I=0 TO 39
255 PLOT I,I
256 PLOT 39-I,I
257 NEXT I
258 GOSUB 30
259 TEXT
260 GOSUB 20
261 PRINT "----------SCRN---------- "
262 PRINT "THE SCREEN COMMAND IS THE INVERSE "
263 PRINT "OF THE PLOT STATEMENT.YOU PROVIDE "
264 PRINT "THE SCREEN LOCATION AND THE RESULT "
265 PRINT "WILL BE THE COLOR AT THAT LOCATION "
266 PRINT "(A NUMBER BETWEEN 0 AND 15) "
267 PRINT "THE GENERAL FORM IS "
268 PRINT " A B=SCRN(C,D) WHERE A IS THE "
269 PRINT "STATEMENT NUMBER,B IS THE ANSWER,C IS "
270 PRINT "HORIZONTAL LOCATION & D IS THE VERTICAL "
271 GOSUB 30
280 GOSUB 20
281 PRINT "EXAMPLE:SET 1,1 TO A COLOR SELECTED "
282 PRINT "AT RANDOM AND DETERMINE THAT COLOR "
283 PRINT " 10 GR "
284 PRINT " 20 COLOR=RND(16):PLOT 1,1 "
285 PRINT " 30 X=SCRN(1,!) "
286 PRINT " 40 PRINT"THE COLOR IS=";X "
287 PRINT "DEPRESS RETURN FOR DEMONSTRATION."
288 INPUT Z$
289 GR :COLOR= RND (16):PLOT 1,1
290 X= SCRN(1,1)
291 PRINT "THE COLOR IS=";X
292 GOSUB 30
293 TEXT
300 GOSUB 20
301 PRINT "----------HLIN---------- "
302 PRINT "THE HLIN STATEMENT CAUSES A HORIZONTAL "
303 PRINT "LINE TO BE PLOTTED AT A LOCATION "
304 PRINT "YOU HAVE SELECTED. THE FORM IS "
305 PRINT " A COLOR=B "
306 PRINT " C HLIN D,E AT F WHERE A AND C "
307 PRINT "ARE ST. NUMBERS B IS THE LINE COLOR,D "
308 PRINT "IS THE HORIZONTAL START POSITION,E IS "
309 PRINT "THE HORIZONTAL END POSITION AND F "
310 PRINT "THE VERTICAL LOCATION. "
311 GOSUB 30
320 GOSUB 20
321 PRINT "EXAMPLE: DRAW GREEN LINES AT THE TOP, "
322 PRINT "BOTTOM AND MIDDLE OF THE SCREEN. "
323 PRINT " 10 GR:COLOR=12 "
324 PRINT " 20 HLIN 0,39 AT 0 "
325 PRINT " 30 HLIN 0,39 AT 20 "
326 PRINT " 40 HLIN 0,39 AT 39 "
327 PRINT "DEPRESS RETURN FOR A DEMONSTRATION. "
328 INPUT Z$
329 GR :COLOR= 12
330 HLIN 0,39 AT 0:HLIN 0,39 AT 20
331 HLIN 0,39 AT 39
332 GOSUB 30
333 TEXT
340 GOSUB 20
341 PRINT "----------VLIN---------- "
342 PRINT "SAME AS HLIN EXCEPT PLOTS VERTICAL LINES "
343 PRINT " A COLOR=B "
344 PRINT " C VLIN D,E AT F "
345 PRINT "AS WITH HLIN,THE HORIZONTAL RANGE IS 0 "
346 PRINT "TO 39,THE VERTICAL RANGE IS 0 TO 39 "
347 PRINT "OR 0 TO 47(FULL GRAPHICS SCREEN)ALSO "
348 PRINT "D MUST ALWAYS BE LESS THAN E. "
349 PRINT "D,E,AND F CAN BE NUMBERS OR NUMERIC "
350 PRINT "VARIABLES IN THE CORRECT RANGE. "
351 GOSUB 30
360 GOSUB 20
361 PRINT "EXAMPLE: PLOT A SCREENFUL OF BROWN VERTICAL LINES. "
362 PRINT " 10 GR:COLOR=8 "
363 PRINT " 20 FOR I=0 TO 19:J=2*I "
364 PRINT " 30 VLIN 0,39 AT J "
365 PRINT " 40 NEXT I "
366 PRINT "DEPRESS RETURN FOR A DEMONSTRATION."
367 INPUT Z$
368 GR :COLOR= 8
369 FOR I=0 TO 19:J=2*I:VLIN 0,39 AT J
370 NEXT I
371 GOSUB 30
372 TEXT
380 GOSUB 20
381 PRINT "------PROBLEMS------ "
382 PRINT "THIS SECTION WILL HELP YOU TO "
383 PRINT "REVIEW THE TOPICS PREVIOUSLY COVERED. "
384 PRINT "AFTER EACH PROBLEM IS PRESENTED,YOU "
385 PRINT "WILL BE GIVEN A CHANCE TO ANSWER. THE "
386 PRINT "CORRECT ANSWER WILL THEN BE DISPLAYED. "
387 PRINT " READY? WILL THEN BE DISPLAYED.DEPRESS "
388 PRINT "THE CARRIAGE RETURN AND THE NEXT PROBLEM "
389 PRINT "WILL APPEAR. "
400 PRINT "1-PUT THE SYSTEM IN THE GRAPHICS MODE(40 LINES)"
403 GOSUB 1111
406 PRINT "ANSWER: 10 GR"
409 GOSUB 30
412 PRINT "2-PUT THE ENTIRE SCREEN IN GRAPHICS MODE"
415 GOSUB 1111
418 PRINT "ANSWER:10 GR:POKE -16302,0"
421 GOSUB 30
424 PRINT "3-RETURN THE SYSTEM TO NORMAL TEXT OPERATION"
427 GOSUB 1111
430 PRINT "ANSWER:10 TEXT"
433 GOSUB 30
436 PRINT "4-ENABLE THE COLOR MAGENTA"
439 GOSUB 1111
442 PRINT "ANSWER:10 GR:COLOR=1"
445 GOSUB 30
448 PRINT "5-FILL THE ENTIRE SCREEN WITH RANDOM "
451 PRINT "BLOCKS OF COLOR(REQUIRES 7 STATEMENTS)"
454 GOSUB 1111
457 FOR I=1 TO 7:INPUT Z$:NEXT I
460 PRINT "ANSWER: 10 GR"
463 PRINT " 20 FOR I=0 TO 39"
464 PRINT " 24 FOR J=0 TO 39"
466 PRINT " 30 X=RND(16)"
469 PRINT " 40 COLOR=X"
472 PRINT " 50 PLOT I,J"
475 PRINT " 60 NEXT J,I"
478 PRINT "DEPRESS RETURN FOR DEMONSTRATION"
481 INPUT Z$
484 GR :FOR I=0 TO 39:FOR J=0 TO 39:X= RND (16)
487 COLOR= X:PLOT I,J:NEXT J,I
490 GOSUB 30
493 TEXT
496 PRINT "6-DETERMINE THE COLOR AT LOCATION 1,39"
499 GOSUB 1111
502 PRINT "ANSWER:10 X=SCRN(1,39):PRINT X"
505 GOSUB 30
508 PRINT "7-PLOT THE PATTERN FOR A TIC-TAC-TOE"
511 PRINT "GAME. (REQUIRES 5 STATEMENTS)"
514 GOSUB 1111
517 FOR I=1 TO 5:INPUT Z$:NEXT I
520 PRINT "ANSWER:10 GR:COLOR=7"
523 PRINT " 20 HLIN 0,39 AT 13"
526 PRINT " 30 HLIN 0,39 AT 26"
529 PRINT " 40 VLIN 0,39 AT 13"
532 PRINT " 50 VLIN 0,39 AT 26"
535 PRINT "DEPRESS RETURN FOR A DEMONSTRATION"
538 INPUT Z$
541 GR :COLOR= 7
544 HLIN 0,39 AT 13:HLIN 0,39 AT 26
547 VLIN 0,39 AT 13:VLIN 0,39 AT 26
550 GOSUB 30
553 TEXT :GOSUB 20
556 PRINT "NOW USE YOUR IMAGINATION AND SEE"
559 PRINT "THE GRAPHICS DISPLAYS YOU CAN CREATE!"
600 GOTO 10000
1111 PRINT " "
1112 INPUT "YOUR ANSWER ",Z$
1113 RETURN
10000 PRINT :PRINT :INPUT "DO YOU WISH TO CONTINUE (Y/N) ",I$:IF I$="N" THEN END
10002 PRINT " RUNBASIC TUTORIAL"
Text found in Volume_125_Dallas_Assortment_3.dsk/BASIC TUTORIAL.int:
10 CALL -936:VTAB 6:TAB 10:PRINT "B.A.S.I.C. PROGRAMMING"
12 VTAB 10
15 PRINT "THIS PROGRAM CONSISTS OF FOUR DIFFERENT LESSONS, THEY ARE:"
20 POKE 32,6:PRINT :PRINT
21 PRINT "1. BASIC TUTORIAL 1":PRINT
22 PRINT "2. BASIC TUTORIAL 2":PRINT
23 PRINT "3. BASIC TUTORIAL 3":PRINT
25 PRINT "4. BASIC TUTORIAL 4":PRINT
26 POKE 32,0
30 PRINT :PRINT :INPUT "CHOOSE ONE OF THE ABOVE, PRESS RETURN ",I:D$="":IF I=1 THEN 40
32 IF I=2 THEN 50
34 IF I=3 THEN 60
36 IF I=4 THEN 70
40 PRINT D$;"RUNBASIC TUTORIAL 1"
50 PRINT D$;"RUNBASIC TUTORIAL 2"
60 PRINT D$;"RUNBASIC TUTORIAL 3"
70 PRINT D$;"RUNBASIC TUTORIAL 4"
100 END
120 REM DONATED BY
130 REM ROBERT M KELLER
140 REM 1804 BOSTON TURNPIKE
150 REM COVENTRY, CONN 06238
Text found in Volume_125_Dallas_Assortment_3.dsk/BASIC-INTEGER.bas:
110 TEXT : HOME
120 PRINT
130 PRINT "STANDBY WHILE I LOAD INTEGER BASIC INTO RAM."
140 PRINT
150 PRINT "NOTE THIS BASIC OCCUPIES MEMORY SPACE SOMETIMES USED BY INTEGER PROGRAMS; HENCE NOT ALL INTEGER BASIC (I) PROGRAMS WILL RUN WITH THIS BASIC."
160 PRINT
170 PRINT "FURTHER NOTE THIS BASIC IS LOST WHEN YOU BOOT (PR#6) AND WHEN YOU TURN OFF YOUR APPLE, JUST AS IS ANY PROGRAM LOADED IN RAM."
180 PRINT
190 PRINT "LOADING THIS LANGUAGE IS A TEMPORARY ALTERNATIVE BEFORE BUYING AN INTEGER ROM CARD OR BETTER A 16K RAM CARD OR APPLE LANGUAGE CARD."
200 PRINT
210 PRINT "NOW, WHEN THE INTEGER BASIC CURSOR >"
211 PRINT "COMES UP, TYPE CATALOG, THEN HAVE FUN."
220 PRINT CHR$(4);"BRUN BASIC-INTEGER.X"
230 END
Text found in Volume_125_Dallas_Assortment_3.dsk/CHECKBOOK RECONCILIATION.bas:
20 REM CHECK BOOK BALANCING PRO GRAM
40 REM BY
60 REM LOUIS REENS
80 REM -------------------------
100 TEXT : HOME
120 PRINT TAB( 13)"CHECK CHECK"
140 POKE 34,4: VTAB 5
160 PRINT "I N S T R U C T I O N S"
180 PRINT
200 PRINT : PRINT " IN 'CRT ONLY' MODE, YOU MAY IGNORE THE 'CHECK#' PROMPT BY TYPING ."
220 PRINT : PRINT "IF A PROMPT DOES NOT APPLY, INPUT '0'."
240 PRINT : PRINT "IN 'PRINT-OUT' MODE, CORRECT ERRORS AF- TER TYPING CTRL-X.": PRINT
260 PRINT "CHOOSE :"
280 PRINT : PRINT TAB( 9)"<1> CRT ONLY"
300 PRINT : PRINT TAB( 9)"<2> PRINT-OUT"
320 PRINT : INPUT "WHICH : 1 OR 2 ? ";G
340 IF G = 1 THEN 560: IF G = 2 THEN 360
360 PRINT : FLASH : PRINT "TURN ON YOUR PRINTER !!!"
380 NORMAL
400 D$ = "": REM CTRL-D
420 PRINT D$;"PR#1"
440 PRINT : PRINT
450 HOME
460 PRINT CHR$(27)"E": PRINT "ATTACH TO YOUR BANK STATEMENT FOR EASY REFERENCE, NEXT MONTH."
480 PRINT : PRINT
500 PRINT TAB( 15): PRINT CHR$(14)"CHECK BOOK RECONCILIATION"
520 PRINT
540 PRINT TAB( 15): INPUT "DATE...";A$
560 HOME
580 PRINT : PRINT
600 INPUT "BANK STATEMENT BALANCE $";B
620 B = INT(B *100 +0.5)/100
640 PRINT
660 INPUT "HOW MANY OUTSTANDING CHECKS ? ";N
680 FOR K = 1 TO N
700 IF N <1 THEN 840
720 INPUT "CHECK #";B$: PRINT TAB( 20): INPUT "$";C
740 LET B = B -C
760 NEXT K
780 PRINT
800 PRINT "BALANCE $";B
820 PRINT
840 PRINT "HOW MANY DEPOSITS AFTER"
845 INPUT "STATEMENT CLOSING DATE ? ";Z
860 FOR Y = 1 TO Z
880 IF Z <1 THEN 1000
900 INPUT "DEPOSIT $";D
920 LET B = B +D
940 B = INT(B *100 +0.5)/100
960 NEXT Y
980 PRINT
1000 PRINT "BALANCE $";B
1020 PRINT
1040 INPUT "SERVICE CHARGES $";S
1060 LET B = B +S
1080 PRINT
1100 PRINT "BALANCE $";B
1120 PRINT
1140 INPUT "INTEREST $";I
1160 PRINT
1180 LET B = B -I
1200 B = INT(B *100 +0.5)/100
1220 PRINT "CHECK BOOK BALANCE SHOULD BE ";: INVERSE : PRINT "$";B
1240 NORMAL
1260 INPUT "CHECK BOOK BALANCE IS $";A
1280 LET D = B -A
1300 D = INT(D *100 +0.5)/100
1320 IF D = 0 THEN 1400
1340 PRINT CHR$(7); CHR$(7); CHR$(7): FLASH : PRINT "DISCREPANCY IS": NORMAL : HTAB 18: INVERSE : PRINT CHR$(14)"$ ";D: NORMAL
1360 PRINT : PRINT
1380 PRINT "TRACK DOWN AND CORRECT,THEN:": PRINT
1400 PRINT : PRINT "ADD $ ";I;" TO Y O U R BALANCE AND"
1420 PRINT "DEDUCT $ ";S
1440 PRINT
1460 B = INT(B *100 +0.5)/100
1480 LET B = A +D +I -S
1500 PRINT "UNLESS THE BANK MADE A MISTAKE, YOUR"
1505 PRINT "CHECK BOOK BALANCE SHOULD NOW BE"
1520 PRINT : PRINT TAB( 18): INVERSE : PRINT CHR$(14)"$ ";B
1540 NORMAL : PRINT : PRINT : PRINT : INPUT "LAST CHECK , LISTED ON STATEMENT...# ";B$
1560 PRINT CHR$(140);
1580 PRINT CHR$(27)"F";: PRINT CHR$(147)
1600 PRINT D$;"PR#0"
1620 END
Text found in Volume_125_Dallas_Assortment_3.dsk/CROCKPOT COOKING TIME.bas:
10 REM ************************** CROCKPOT COOKING TIME ** VERSION 1.0 6/12/82 ** PROGRAMMED BY KEN SCOTT *****************************
100 REM ************************* MAINLINE PROGRAM *****************************
110 HOME
120 PRINT "THIS PROGRAM PERFORMS THE CALCULATIONS NECESSARY TO ADJUST CROCKPOT COOKING TIMES TO ACHIEVE DESIRED COOKING START AND FINISH TIMES.
130 PRINT : PRINT "INPUTS ARE:
140 PRINT : PRINT " RECOMMENDED COOKING TIMES ON HIGH AND LOW
150 PRINT : PRINT " DESIRED TIME TO START COOKING
160 PRINT : PRINT " DESIRED TIME TO FINISH COOKING
170 PRINT : PRINT "OUTPUTS ARE:
180 PRINT : PRINT " TOTAL ORIGINAL COOKING TIME
190 PRINT : PRINT " TIME TO SWITCH FROM HIGH TO LOW
200 PRINT : PRINT " TIME COOKING IS FINISHED
210 PRINT : INPUT "ENTER RECOMMENDED COOKING TIME ON HIGH (IN HOURS) ";TH
220 IF TH <0 THEN GOSUB 1100: GOTO 210
230 PRINT : INPUT "ENTER RECOMMENDED COOKING TIME ON LOW (IN HOURS) ";TL
240 IF TL <0 THEN GOSUB 1100: GOTO 230
250 TT = TL +TH
260 PRINT : PRINT "TOTAL RECOMMENDED COOKING TIME IS:": PRINT TT;" HOURS.
270 PRINT : INPUT "ENTER COOKING START TIME IN FOLLOWING FORMAT: (HOUR,MINUTE,AM/N/PM/M) ";H,M,AP$
280 GOSUB 1200: IF EF THEN 270
290 ST = HH
300 PRINT : INPUT "ENTER COOKING FINISH TIME IN FOLLOWING FORMAT: (HOUR,MINUTE,AM/N/PM/M) ";H,M,AP$
310 GOSUB 1200: IF EF THEN 300
320 FT = HH
330 DT = FT -ST
340 IF DT > = 0 THEN 370
350 PRINT : INVERSE : PRINT CHR$(7);"FINISH TIME IS EARLIER THAN START TIME.": NORMAL :S$ = "IS THE FINISH TIME FOR THE FOLLOWING DAY?": GOSUB 1500: IF NOT YES THEN 270
360 FT = FT +24: GOTO 330
370 ET = 2.25 *TH +TL
380 NH = (ET -DT)/1.25
390 NL = DT -NH
400 IF NH < = 0 THEN PRINT : PRINT "START COOKING ON ";: INVERSE : PRINT "LOW";: NORMAL : PRINT " AT ";:T = ST: GOSUB 1300: PRINT T$: GOTO 430
410 PRINT : PRINT "START COOKING ON HIGH AT ";:T = ST: GOSUB 1300: PRINT T$
420 IF NL < = 0 THEN INVERSE : PRINT : PRINT CHR$(7);"MINIMUM COOKING TIME IS:":HH = ET/2.25: GOSUB 1000: PRINT "--- ALL ON HIGH!!!":FT = ST +ET/2.25: NORMAL : GOTO 470
430 IF NH < = 0 THEN INVERSE : PRINT : PRINT CHR$(7);"MAXIMUM COOKING TIME IS:":HH = ET: GOSUB 1000: PRINT "--- ALL ON LOW!!!":FT = ST +ET: NORMAL : GOTO 470
440 GOSUB 1400
450 PRINT : PRINT "CHANGE FROM HIGH TO LOW AT ";:T = ST +NH: GOSUB 1300: PRINT T$
460 GOSUB 1400
470 PRINT : PRINT "FINISH COOKING AT ";:T = FT: GOSUB 1300: PRINT T$
480 GOSUB 1400
490 S$ = "DIFFERENT START OR FINISH TIMES?": GOSUB 1500
500 IF YES THEN 270
510 S$ = "ANOTHER CASE?": GOSUB 1500
520 IF YES THEN 210
999 END
1000 REM ************************ PRINT HOUR, MINUTES *****************************
1010 HI = INT(HH)
1020 M = INT(60 *(HH -HI) +.5)
1030 PRINT HI;" HOURS, "M;" MINUTES ";
1099 RETURN
1100 REM ************************ PRINT ERROR MESSAGE *****************************
1110 INVERSE : PRINT : PRINT CHR$(7);"TIME MUST BE POSITIVE!": NORMAL
1199 RETURN
1200 REM ************************ HOURS, MINUTES TO HOURS *****************************
1205 IF H <1 OR H >12 THEN INVERSE : PRINT : PRINT "HOUR MUST BE FROM 1TO 12!";: GOTO 1265
1210 IF M <0 OR M >59 THEN INVERSE : PRINT : PRINT "MINUTE MUST BE FROM 0 TO 59!";: GOTO 1265
1215 AP$ = LEFT$(AP$,1)
1220 T$ = "ANPM": FOR I = 1 TO LEN(T$): IF AP$ = MID$ (T$,I,1) THEN 1240
1225 NEXT
1230 INVERSE : PRINT : PRINT "AM, N, PM OR M!";: GOTO 1265
1235 STOP
1240 HH = H +M/60
1245 IF AP$ = "P" AND H < >12 THEN HH = HH +12
1250 IF (AP$ = "N" OR AP$ = "M") AND (HH < >12) THEN INVERSE : PRINT : PRINT "AM OR PM!";: GOTO 1265
1255 IF (AP$ = "M" AND HH = 12) OR (AP$ = "A" AND HH > = 12) THEN HH = HH -12
1260 EF = 0: GOTO 1299
1265 NORMAL : PRINT CHR$(7):EF = 1
1299 RETURN
1300 REM ************************ HOURS TO HOURS, MINUTES *****************************
1305 AP$ = " AM":DF = 0
1310 IF T > = 25 THEN T = T -24:AP$ = " AM":DF = DF +1: GOTO 1310
1315 IF T = 0 THEN AP$ = " M "
1320 IF T = 12 THEN AP$ = " N "
1325 IF T >12 THEN AP$ = " PM"
1330 IF T > = 13 THEN T = T -12
1335 IF T <1 THEN T = T +12
1340 H = INT(T)
1345 M = INT(60 *(T -H) +.5)
1350 T$ = STR$(H) +":": IF M <10 THEN T$ = T$ +"0": IF M = 0 THEN T$ = T$ +"0": GOTO 1360
1355 T$ = T$ + STR$(M)
1360 T$ = T$ +AP$
1399 RETURN
1400 REM ************************ TEST FOR NEXT DAY *****************************
1410 IF NOT DF THEN 1499
1420 PRINT : PRINT CHR$(7);DF;" DAY";
1430 IF DF >1 THEN PRINT "S";
1440 PRINT " LATER!!!!!": PRINT
1499 RETURN
1500 REM ************************ ASK Y/N QUESTION *****************************
1510 YES = 0
1520 PRINT : PRINT S$;" (Y/N) ";: GET A$: PRINT A$
1530 IF A$ = "Y" THEN YES = 1: GOTO 1599
1540 IF A$ < >"N" THEN PRINT CHR$(7): GOTO 1520
1599 RETURN
Text found in Volume_125_Dallas_Assortment_3.dsk/DALLAS DOM (8207) HELLO.bas:
5 REM HELLO
10 REM BY PHIL FAULCONER,
20 REM APPLE CORPS OF DALLAS
30 REM APPLE DAYTON B.MENU
40 REM PROGRAM MODIFIED BY
50 REM PHIL FAULCONER
60 TEXT : HOME
65 PRINT : PRINT
70 PRINT "APPLE CORPS OF DALLAS": PRINT " DISK OF THE MONTH"
80 PRINT : PRINT : PRINT
90 PRINT " TO RERUN B.MENU, 'CALL 1016'": PRINT "FROM EITHER BASIC OR FROM MONITOR,": PRINT " 'CTRL Y' OR '3F8G'."
100 PRINT : PRINT
110 PRINT "EXIT MENU WITH 'E',": PRINT : FLASH : PRINT "DO NOT USE 'RESET'."
120 NORMAL : PRINT : PRINT
130 PRINT "B.MENU IS A MODIFIED VERSION OF THE APPLE DAYTON MENU PROGRAM."
140 FOR D = 1 TO 1000: NEXT D
150 PRINT "BRUN B.MENU": END
Text found in Volume_125_Dallas_Assortment_3.dsk/MONEY.txt:
TWENTY
THIRTY
FOURTY
FIFTY
SIXTY
SEVENTY
EIGHTY
NINETY
ONE
TWO
THREE
FOUR
FIVE
SIX
SEVEN
EIGHT
NINE
TEN
ELEVEN
TWELVE
THIRTEEN
FOURTEEN
FIFTEEN
SIXTEEN
SEVENTEEN
EIGHTEEN
NINETEEN
Text found in Volume_125_Dallas_Assortment_3.dsk/PHONE LIST WITH AUTO-DIAL.bas:
10 REM PHONE LIST WITH AUTO-DIAL
20 REM BY TOM DOWNING
30 TEXT : HOME
40 DIM DD$(25),D(25)
50 D$ = CHR$(4):Z$ = CHR$(26)
60 SLOT = 2:PFX$ = ""
70 KBD = -16384:CLKBD = -16368:MM2 = -16251 +16 *SLOT:OH = 136:O = 0
80 POKE 34,5: VTAB 1
90 ONERR GOTO 125
100 REM MENU
105 PRINT TAB( 7);"PHONE LIST WITH AUTO-DIAL"
110 PRINT : PRINT TAB( 12);"BY TOM DOWNING"
115 PRINT
120 FOR I = 1 TO 40: PRINT "=";: NEXT
125 HOME : PRINT : PRINT "DO YOU WISH TO..."
130 PRINT
135 PRINT TAB( 10);"0) SEE INSTRUCTIONS"
140 PRINT
145 PRINT TAB( 10);"1) ADD A LISTING"
150 PRINT
155 PRINT TAB( 10);"2) FIND A LISTING"
160 PRINT
165 PRINT TAB( 10);"3) REDIAL LAST NUMBER"
170 PRINT
175 PRINT TAB( 10);"4) CHANGE A LISTING"
180 PRINT
185 PRINT TAB( 10);"5) DELETE A LISTING"
190 PRINT
195 PRINT TAB( 10);"6) QUIT"
199 REM
200 REM COMMAND SELECTOR
210 PRINT : PRINT
215 NF = 0:CS = 0:DS = 0:AS = 0:LU = 0
220 INPUT "WHICH? (ENTER NUMBER) ";CM$
225 IF CM$ = "0" THEN GOTO 30000
230 IF CM$ = "1" THEN AS = 1: GOTO 300
235 IF CM$ = "2" THEN LU = 1: GOTO 300
240 IF CM$ = "3" THEN T$ = OT$: GOTO 600
245 IF CM$ = "4" THEN CS = 1: GOTO 300
250 IF CM$ = "5" THEN DS = 1: GOTO 300
255 IF CM$ = "6" THEN GOTO 60000
260 GOTO 220
299 REM
300 REM GET NAME
310 HOME
320 PRINT "ENTER ";: FLASH : PRINT "FIRST";: NORMAL : INPUT " NAME> ";GN$
330 PRINT
335 IF LU = 1 THEN PRINT "ENTER LAST NAME ";: INVERSE : PRINT "(OPTIONAL)";: NORMAL : INPUT " >";LN$: GOTO 350
340 PRINT "ENTER ";: INVERSE : PRINT "LAST";: NORMAL : INPUT " NAME> ";LN$
350 PRINT
399 REM
400 REM SEARCH DIRECTORY
405 GOSUB 10000
410 PRINT D$;"OPEN PHONE DIRECTORY,L44"
415 PRINT D$;"READ PHONE DIRECTORY,R";R
420 ONERR GOTO 455
425 INPUT N1$,N2$
430 INPUT PN$
435 IF GN$ < >N1$ THEN PRINT D$;"CLOSE PHONE DIRECTORY":R = R +1: GOTO 410
440 IF LN$ = "" AND LU = 1 THEN GOTO 450
445 IF LN$ < >N2$ THEN PRINT D$;"CLOSE PHONE DIRECTORY":R = R +1: GOTO 410
450 PRINT D$;"CLOSE PHONE DIRECTORY": GOTO 500
455 PRINT D$;"CLOSE PHONE DIRECTORY"
460 IF AS = 1 THEN GOTO 475
465 PRINT : PRINT TAB( 10);: FLASH : PRINT "LISTING NOT FOUND": NORMAL
470 NF = 1
475 AS = 0
480 IF DS = 1 OR CS = 1 THEN PRINT : PRINT : HTAB (20): INPUT "PRESS RETURN. ";RT$:DS = 0:CS = 0: GOTO 125
485 GOSUB 20000
490 GOTO 545
499 REM
500 REM CHECK PHONE NUMBER
505 IF AS = 1 THEN PRINT : INVERSE : PRINT "THAT LISTING ALREADY EXISTS.": NORMAL :AS = 0
510 PRINT
515 PRINT N1$ +" " +N2$ +" " +PN$
520 PRINT
522 IF LU = 1 THEN INPUT "IS THIS THE CORRECT LISTING? (Y/N) ";E$
524 IF DS = 1 THEN FLASH : PRINT "DELETE";: NORMAL : INPUT " THIS LISTING? (Y/N) ";E$
525 IF CS = 1 THEN INVERSE : PRINT "CHANGE";: NORMAL : INPUT " THIS LISTING? (Y/N) ";E$
530 IF E$ = "N" OR E$ = "NO" THEN PRINT D$;"CLOSE PHONE DIRECTORY":R = R +1: GOTO 410
532 IF E$ = "Y" OR E$ = "YES" THEN GOTO 535
534 GOTO 522
535 IF CS = 1 THEN GOTO 800
540 IF DS = 1 THEN GOTO 800
545 IF NF = 1 AND (E$ = "N" OR E$ = "NO") THEN GOTO 125
550 PRINT : INPUT "DO YOU WISH TO DIAL NOW? (Y/N) ";E$
555 IF E$ = "N" OR E$ = "NO" THEN GOTO 125
557 IF E$ = "Y" OR E$ = "YES" THEN GOTO 560
558 GOTO 550
560 NB = 0:T$ = ""
565 FOR NB = 1 TO LEN(PN$)
570 NB$ = MID$ (PN$,NB,1)
575 IF ASC(NB$) >47 AND ASC(NB$) <58 THEN T$ = T$ +NB$
580 NEXT
585 OT$ = T$
599 REM
600 REM DIAL NUMBER
602 IF T$ = "" THEN GOTO 660
605 ONERR GOTO 125
610 PH$ = PFX$ +T$
615 PRINT D$"PR#"SLOT
620 PRINT CHR$(17)PH$ CHR$(10)
625 PRINT D$"PR#0"
630 IF PEEK(KBD) >127 THEN POKE CLRKBD,0: POKE MM2,0: FLASH : PRINT : PRINT "** ABORTED * HUNG UP": NORMAL : CALL -198: FOR H = 1 TO 1000: NEXT : HOME : GOTO 125
635 PRINT : PRINT "YOU MAY PICK UP THE PHONE NOW....": CALL -198
640 PRINT
645 FOR H = 1 TO 2500: NEXT H
650 POKE MM2,0
655 POKE CLKBD,O
660 HOME : GOTO 125
699 REM
800 REM DELETE LISTING
810 GN$ = "":LN$ = "":PN$ = ""
820 GOSUB 20090
825 IF DS = 1 THEN PRINT : PRINT "NUMBER DELETED.": PRINT : HTAB (20): INPUT "PRESS RETURN. ";RT$
830 IF DS = 1 THEN DS = 0: GOTO 125
899 REM
900 REM CHANGE LISTING
910 AS = 1:CS = 0
920 PRINT
930 GOTO 320
999 REM
10000 REM HASHING SUBROUTINE
10010 REM
10020 REM CONVERTS FIRST FOUR
10030 REM LETTERS OF FIRST
10040 REM NAME ENTERED
10050 REM TO UNIQUE RECORD
10060 REM NUMBER FOR RANDOM
10070 REM ACCESS FILE.
10080 REM
10090 REM ENCODE NAME
10100 RP = 0:DF = 0
10110 LG = LEN(GN$)
10120 GC = 0
10130 IF LG < = 0 GOTO 10250
10140 GC = ( ASC( MID$ (GN$,1,1)) -64) *13
10150 IF LG = 1 GOTO 10190
10160 FOR RP = 2 TO LG
10170 GC = GC + ASC( MID$ (GN$,RP,1)) -64
10180 NEXT
10190 REM CREATE RECORD#
10200 R = GC
10210 IF LG <4 THEN R = R -13
10220 IF R >300 THEN R = R -300
10240 IF R <0 THEN R = 0
10250 RETURN
10260 REM
20000 REM WRITE RANDOM ACCESS DISK FILE
20010 PRINT
20020 IF LU = 1 THEN PRINT : PRINT "WOULD YOU LIKE TO ADD THIS LISTING?": PRINT : INPUT "(Y/N) ";E$: PRINT
20030 IF (E$ = "N" OR E$ = "NO") AND LU = 1 THEN GOTO 20140
20035 IF (E$ = "Y" OR E$ = "YES") AND LU = 1 THEN GOTO 20040
20037 IF LU = 1 THEN GOTO 20020
20040 PRINT : PRINT "ENTER THE PHONE NUMBER."
20050 INVERSE
20060 PRINT "ADD 1 + AREA CODE IF NOT SAME AS YOURS."
20070 NORMAL : PRINT
20080 INPUT PN$
20090 PRINT D$;"OPEN PHONE DIRECTORY,L44"
20100 PRINT D$;"WRITE PHONE DIRECTORY,R";R
20110 PRINT GN$: PRINT LN$
20120 PRINT PN$
20130 PRINT D$;"CLOSE PHONE DIRECTORY"
20132 IF CS = 1 OR DS = 1 THEN GOTO 20140
20135 PRINT : PRINT "LISTING ADDED.": PRINT : HTAB (20): INPUT "PRESS RETURN. ";RT$
20140 RETURN
20150 REM
30000 REM INSTRUCTIONS
30010 HOME : PRINT
31000 REM HOW TO ADD LISTING
31005 HOME
31010 PRINT "I. TO ADD A LISTING"
31015 PRINT
31020 PRINT " 1) ENTER FIRST NAME."
31025 PRINT
31030 PRINT " (USE ONLY ";: INVERSE : PRINT "ONE";
31035 NORMAL : PRINT " FIRST NAME EVEN IF";
31040 PRINT " LISTING IS FOR A COUPLE, SINCE"
31050 PRINT " PROGRAM FILES LISTINGS BY FIRST";
31060 PRINT " NAME.)"
31065 PRINT
31070 PRINT " 2) ENTER LAST NAME."
31075 PRINT
31080 PRINT " (UNECESSARY IF FIRST NAME IS"
31081 PRINT " UNIQUE IN YOUR LISTINGS, SINCE"
31082 PRINT " PROGRAM ONLY USES IT TO CHECK"
31090 PRINT " FOR DUPLICATE FIRST NAMES.)"
31092 VTAB (24): HTAB (20): INPUT "PRESS RETURN. ";RT$
31094 HOME : PRINT "I. TO ADD A LISTING (CONT.)"
31095 PRINT
31100 PRINT " 3) ENTER PHONE NUMBER"
31101 PRINT
31102 PRINT " (YOU MAY USE BLANKS OR HYPHENS"
31104 PRINT " FOR BETTER LEGIBILITY.)"
31105 PRINT
31110 PRINT " DO ";: INVERSE : PRINT "NOT";: NORMAL : PRINT " ENTER AREA CODES FOR"
31120 PRINT " NUMBERS IN THE SAME AREA CODE"
31125 PRINT " AS YOURS."
31130 PRINT
31140 INVERSE : PRINT "NOTE";: NORMAL : PRINT " ";: INVERSE : PRINT "PROGRAM CREATES TEXT FILE NAMED": NORMAL
31150 PRINT SPC( 5);: INVERSE : PRINT "PHONE DIRECTORY. DO NOT DELETE.": NORMAL
31990 VTAB (24): HTAB (20): INPUT "PRESS RETURN. ";RT$
32000 REM HOW TO FIND A LISTING
32005 HOME
32010 PRINT "II. TO FIND A LISTING"
32015 PRINT
32020 PRINT " 1) ENTER FIRST NAME."
32025 PRINT
32030 PRINT " 2) ENTER LAST NAME IF DESIRED."
32035 PRINT
32040 PRINT " (SPEEDS UP SEARCH IN CASE OF"
32050 PRINT " DUPLICATE FIRST NAMES.)"
32055 PRINT
32060 PRINT " 3) THE PROGRAM WILL ASK IF IT HAS"
32070 PRINT " THE CORRECT LISTING."
32075 PRINT
32080 PRINT " IF IT DOES NOT, ANSWER 'N' AND"
32090 PRINT " IT WILL CONTINUE THE SEARCH."
32095 PRINT
32100 PRINT " 4) IF YOU ANSWER 'Y' IT WILL ASK"
32110 PRINT " IF YOU ARE READY TO DIAL."
32190 VTAB (24): HTAB (20): INPUT "PRESS RETURN. ";RT$
32200 HOME : PRINT "II. TO FIND A LISTING (CONT.)
32205 PRINT
32210 PRINT " 5) IF YOU WISH TO HAVE THE MODEM"
32220 PRINT " DIAL THE NUMBER FOR YOU, SIMPLY"
32230 PRINT " ANSWER 'Y' AND PICK UP THE PHONE"
32240 PRINT " WHEN IT TELLS YOU TO."
32250 PRINT
32252 PRINT " AN ANSWER OF 'N' RETURNS YOU"
32254 PRINT " TO THE MENU."
32256 PRINT
32260 INVERSE : PRINT "NOTE";: NORMAL
32265 PRINT " ";: INVERSE
32270 PRINT "TO USE THE AUTO-DIAL FEATURE, YOU": NORMAL
32275 PRINT " ";: INVERSE
32280 PRINT "MUST HAVE A HAYES MICROMODEM II. ": NORMAL
32285 PRINT
32290 PRINT " (IF IT IS NOT IN SLOT 2, YOU MUST"
32300 PRINT " CHANGE LINE 60 OF THE PROGRAM.)"
32990 VTAB (24): HTAB (20): INPUT "PRESS RETURN. ";RT$
33000 REM HOW TO REDIAL
33005 HOME
33010 PRINT "III. HOW TO REDIAL THE LAST NUMBER"
33015 PRINT
33020 PRINT " SIMPLY SELECT NUMBER 3 ON THE MENU."
33024 PRINT " THE MODEM WILL REDIAL THE LAST"
33026 PRINT " NUMBER YOU ACTUALLY DIALED."
33028 PRINT
33030 INVERSE : PRINT "NOTE";: NORMAL : PRINT " ";: INVERSE : PRINT "NOTHING HAPPENS IF NO NUMBER"
33040 NORMAL : PRINT " ";: INVERSE : PRINT "HAS YET BEEN DIALED.": NORMAL
33990 VTAB (24): HTAB (20): INPUT "PRESS RETURN. ";RT$
34000 REM HOW TO CHANGE LISTINGS
34005 HOME
34010 PRINT "IV. HOW TO CHANGE A LISTING"
34015 PRINT
34020 PRINT " 1) ENTER FIRST NAME."
34025 PRINT
34030 PRINT " 2) ENTER LAST NAME."
34035 PRINT
34040 PRINT " (YOU MUST ALWAYS USE THE LAST"
34050 PRINT " NAME IF IT IS IN THE ORIGINAL"
34060 PRINT " LISTING. OTHERWISE THE LISTING"
34070 PRINT " WILL NOT BE FOUND.)"
34075 PRINT
34080 PRINT " 3) THE PROGRAM WILL ASK IF YOU"
34090 PRINT " WISH TO CHANGE THE LISTING"
34095 PRINT " IT FINDS."
34097 PRINT
34100 PRINT " IF YOU ANSWER 'N', NOTHING IS"
34110 PRINT " CHANGED AND THE SEARCH CONTINUES."
34115 VTAB (24): HTAB (20): INPUT "PRESS RETURN. ";RT$
34117 HOME : PRINT "HOW TO CHANGE A LISTING (CONT.)": PRINT
34120 PRINT " 4) IF YOU ANSWER 'Y', IT WILL ASK"
34130 PRINT " YOU FOR THE SAME INFORMATION IT"
34140 PRINT " ASKS FOR IN A NEW LISTING."
34145 PRINT
34150 PRINT " THE NEW INFORMATION WILL"
34160 PRINT " REPLACE THE OLD LISTING."
34990 VTAB (24): HTAB (20): INPUT "PRESS RETURN. ";RT$
35000 REM HOW TO DELETE LISTINGS
35005 HOME
35010 PRINT "V. HOW TO DELETE A LISTING"
35015 PRINT
35020 PRINT " 1) ENTER FIRST NAME."
35025 PRINT
35030 PRINT " 2) ENTER LAST NAME."
35035 PRINT
35040 PRINT " (YOU MUST ALWAYS USE THE LAST"
35050 PRINT " NAME IF IT IS IN THE ORIGINAL"
35060 PRINT " LISTING. OTHERWISE THE LISTING"
35070 PRINT " WILL NOT BE FOUND.)"
35075 PRINT
35080 PRINT " 3) THE PROGRAM WILL ASK IF YOU"
35090 PRINT " WISH TO DELETE THE LISTING"
35095 PRINT " IT FINDS."
35097 PRINT
35100 PRINT " IF YOU ANSWER 'N', NOTHING IS"
35110 PRINT " CHANGED AND THE SEARCH CONTINUES."
35115 VTAB (24): HTAB (20): INPUT "PRESS RETURN. ";RT$
35117 HOME : PRINT "HOW TO DELETE A LISTING (CONT.)": PRINT
35120 PRINT " 4) IF YOU ANSWER 'Y', IT DELETES"
35130 PRINT " THE LISTING."
35990 VTAB (24): HTAB (20): INPUT "PRESS RETURN. ";RT$
39000 REM RETURN TO MENU
39010 GOTO 125
39020 REM
60000 REM END OF PROGRAM
60010 TEXT : HOME
60030 END
Text found in Volume_125_Dallas_Assortment_3.dsk/POKE-BUILDER-INFO.bas:
10 REM PROGRAM TO DESC POKE-BUILDER
20 REM BY DAVE ROCHIER,CDP
30 REM CARROLLTON TX
40 :
50 TEXT : HOME
60 PRINT "PROGRAM WAS WRITTEN TO AID IN WRITING"
70 PRINT : PRINT "POKES TO BE INSERTED INTO A PROGRAM WHEN"
80 PRINT "OTHER DATA STATMENTS ALREADY EXIST THAT"
90 PRINT : PRINT "PREVENT USE OF A 'FOR/NEXT' LOOP TO POKE"
100 PRINT "SEVERAL VALUES REQUIRED FOR A MACHINE "
110 PRINT : PRINT "LANGUAGE ROUTINE"
120 PRINT : PRINT "SELECT AN AREA IN YOUR PROGRAM THAT HAS"
130 PRINT : PRINT "ROOM FOR THE POKE SUBROUTINE AND SELECT"
140 PRINT : PRINT "AN INCREMENT THAT WILL ALLOW THE ROUTINE"
150 PRINT "TO RESIDE THERE. PERFORM THIS SUBROUTINE"
160 PRINT "TO INSTALL THIS CODE"
Text found in Volume_125_Dallas_Assortment_3.dsk/POKE-BUILDER.bas:
10 REM BUILDS A POKE EXEC FILE
20 REM BY DAVE ROCHIER
30 REM CARROLLTON TX
90 TEXT : HOME
92 PRINT "THIS PROGRAM WILL BUILD A 'POKE' EXEC"
94 PRINT : PRINT "FILE WHICH NEEDS TO BE EXEC'ED INTO YOUR"
96 PRINT "PROGRAM AND THEN ACCESSED BY A GOSUB TO"
98 PRINT : PRINT "THE SUBROUTINE CREATED BY THIS PROGRAM"
100 PRINT : PRINT "ENTER BEGINNING LINE NBR : ";: INPUT "";BG%
120 PRINT
150 PRINT : PRINT "ENTER INCREMENT OF LINE NBR : ";: INPUT "";LI%
170 PRINT : PRINT : PRINT "ENTER POKE START ADDRESS : ";: INPUT "";ST
200 PRINT : PRINT : PRINT "NAME OF 'EXEC' FILE : ";: INPUT NF$
210 PRINT : PRINT "ENTER '999' AS POKE'ED VALUE TO STOP"
300 D$ = CHR$(13) + CHR$(4)
310 PRINT D$;"OPEN ";NF$
320 PRINT D$;"WRITE ";NF$
360 PRINT D$
370 PRINT D$"WRITE ";NF$
380 PRINT BG%;"REM POKE SUBROUTINE"
390 PRINT D$
395 BG% = BG% +LI%
400 PRINT : PRINT : PRINT "ENTER VALUE TO BE POKED : ";: INPUT "";PV%
410 IF PV% >900 THEN GOTO 1000
500 PRINT D$"WRITE ";NF$
520 PRINT BG%;"POKE ";ST;",";PV%
560 PRINT D$
600 BG% = BG% +LI%
610 ST = ST +1
650 GOTO 400
1000 REM END OF FILE
1010 PRINT D$"WRITE ";NF$
1020 PRINT BG%;"RETURN"
1030 PRINT D$
1040 PRINT D$"CLOSE ";NF$
1200 END
Text found in Volume_125_Dallas_Assortment_3.dsk/QTOTAL.txt:
2620
175.54
298.95
8.3
Text found in Volume_125_Dallas_Assortment_3.dsk/WEEKLY PAYROLL.EPSON.bas:
10 REM PAYROLL PROGRAM WRITTEN
20 REM BY DAVID QUINTANA
25 REM 214-234-8266
30 ONERR GOTO 700
40 SL = 1
50 REM PPS$="YOUR COMPANY NAME"
60 PPS$ = "CHANGE LINE 60 TO YOUR COMPANY NAME"
70 CD$ = CHR$(4)
80 DASH$ = "-----------------------------------------------------------------------------------------------------------------------"
90 NE = 5
100 DIM NAME$(NE),SN$(NE)
110 DIM ST$(NE),UN(NE)
120 DIM RA$(NE),TH$(NE),GP$(NE),SS$(NE)
130 DIM WT$(NE),UN$(NE),AD$(NE),DE$(NE),CK$(NE)
140 DIM DO$(28)
150 PRINT CD$;"OPEN MONEY": PRINT CD$;"READ MONEY": FOR X = 2 TO 28: INPUT DO$(X): NEXT : PRINT CD$;"CLOSE MONEY"
160 GOTO 500
170 REM DOLLAR ROUTINE
180 AM = INT(AM *100 +.5)/100:AM$ = STR$(AM)
190 IF AM = INT(AM) THEN AM$ = AM$ +".00"
200 IF MID$ (AM$, LEN(AM$) -1,1) = "." THEN AM$ = AM$ +"0"
210 RETURN
499 REM MENU DISPLAY
500 HOME : VTAB 1: HTAB 10: PRINT "WEEKLY PAYROLL PROGRAM"
510 VTAB 4: PRINT SPC( (40 - LEN(PPS$))/2);PPS$
520 VTAB 7: HTAB 6: PRINT "CHOOSE FROM THE FOLLOWING:": POKE 32,5: PRINT : PRINT
530 PRINT "1. COMPUTE WEEKLY PAYROLL": PRINT "2. PRINT PAYROLL RESULTS": PRINT "3. UPDATE ALL QTD/YTD FILES": PRINT "4. PRINT CHECKS"
540 PRINT "5. CREATE/EDIT EMPLOYEE FILES": PRINT "6. CREATE/EDIT QTD/YTD TOTAL FILES"
550 PRINT "7. PRINT QTD/YTD EMPLOYEE FILES": PRINT "8. PRINT QTD/YTD TOTAL FILES": POKE 32,0
560 VTAB 18: HTAB 6: PRINT "9. PRINTER IS ";: IF NOT PR THEN PRINT "OFF": GOTO 580
570 INVERSE : PRINT "ON";: NORMAL : PRINT " "
580 PRINT " 10. EXIT"
590 VTAB 22: HTAB 20: CALL -868: INPUT "WHICH: ";A$:A = VAL(A$)
600 IF A <1 OR A >10 THEN PRINT CHR$(7): GOTO 590
610 HOME
620 ON A GOTO 2000,3000,5000,4000,6000,7000,9000,10000,900,630
630 END
699 REM ERROR ROUTINE
700 PRINT CD$;"CLOSE"
710 PRINT CHR$(7)
720 X = PEEK(222): VTAB 24: HTAB 1: CALL -958
730 IF X = 5 THEN PRINT "END OF DATA ENCOUNTERED": PRINT "NEW FILE NEEDS TO BE CREATED": INPUT "PRESS 'RETURN' TO CONTINUE";IC$: GOTO 500
740 PRINT : PRINT "** UNABLE TO PROCEED**"
750 PRINT "ERROR CODE = ";X: PRINT "CONSULT MANUAL"
760 PRINT : PRINT "ERROR IN STATEMENT "; PEEK(218) + PEEK(219) *256: END
800 PR# SL: RETURN
850 PR# 0: RETURN
900 PR = NOT PR: GOTO 500
1000 REM CHANGE LINE 90 NE=** TO REFLECT NUMBER OF EMPLOYEES
1010 REM **NAME MUST NOT EXCEED 20 CHARACTERS**
1020 REM DATA LAYOUT --> NAME,HOURLY WAGES,(S)INGLE/(M)ARRIED,DEPENDENTS,UNIFORMS,EXEMPT (FIT W/H --> 0 = NONEXEMPT/1 = EXEMPT)
1030 REM UNIFORMS CAN BE CHANGED TO MISC(ELLANEOUS),ETC.
1040 REM IF SALARIED EMPLOYEE THEN ENTER 0 FOR HOURLY WAGES
1100 DATA TOM E WHITE,10,M,4,0,0
1110 DATA JOE D BROWN,5.5,M,2,6,0
1120 DATA DONALD C BLACK,7.5,S,1,0,0
1130 DATA JOHN T STUDENT,5,S,1,0,1
1140 DATA DAVID L MANAGER,0,M,4,0,0
2000 RESTORE
2010 HOME
2020 FICA = .067
2030 GH = 0:GG = 0:GS = 0:GW = 0:GU = 0:GA = 0:GD = 0:GC = 0
2040 INPUT "ENTER PAYROLL DATE -> ";D$
2050 PRINT
2060 PRINT "NAME"; SPC( 15);"RATE/HR HOURS/SALARY"
2070 PRINT "----"; SPC( 15);"------- ------------"
2080 POKE 34,6
2090 REM ROUTINE TO CALCULATE PAYROLL FOR EMPLOYEES
2100 FOR I = 1 TO NE
2110 READ NAME$(I),RA,ST$(I),YY,UN(I),EXEMPT
2120 AM = RA: GOSUB 180:RA$(I) = AM$
2130 PRINT NAME$(I); SPC( 21 - LEN(NAME$(I))); SPC( 5 - LEN(RA$(I)));RA$(I);
2140 IF VAL(RA$(I)) = 0 THEN HTAB 35: INPUT "";GP$:GP = VAL(GP$): GOTO 2170
2150 HTAB 29: INPUT "";TH$: IF TH$ = "S" THEN RA$(I) = "0.00": VTAB PEEK(37): GOTO 2140
2160 TH = VAL(TH$):AM = TH: GOSUB 180:TH$(I) = AM$:GP = VAL(RA$(I)) * VAL(TH$(I))
2170 AM = GP: GOSUB 180:GP$(I) = AM$
2180 IF VAL(GP$(I)) = 0 THEN 2440
2190 PRINT "ADVANCE","O/T HOURS D/T HOURS": INPUT "";AD$:AD = VAL(AD$):AM = AD: GOSUB 180:AD$(I) = AM$
2200 IF VAL(RA$(I)) = 0 THEN 2240
2210 VTAB PEEK(37): HTAB 17: INPUT "";OT$:OT = VAL(OT$)
2220 VTAB PEEK(37): HTAB 32: INPUT "";DT$:DT = VAL(DT$)
2230 IF OT THEN HR = VAL(RA$(I)):GP = HR *1.5 *OT +HR *2 *DT:AM = GP: GOSUB 180:GP = VAL(GP$(I)) + VAL(AM$):AM = GP: GOSUB 180:GP$(I) = AM$:TH = VAL(TH$(I)) +OT +DT:AM = TH: GOSUB 180:TH$(I) = AM$
2240 SS = VAL(GP$(I)) *FICA
2250 AM = SS: GOSUB 180:SS$(I) = AM$
2260 GS = GS + VAL(SS$(I))
2270 GH = GH + VAL(TH$(I))
2280 GG = GG + VAL(GP$(I))
2290 IF EXEMPT THEN WT = 0: GOTO 2330
2300 WA = 19.23 *YY:AW = GP -WA
2310 IF ST$(I) = "S" THEN GOSUB 2600
2320 IF ST$(I) = "M" THEN GOSUB 2680
2330 AM = WT: GOSUB 180:WT$(I) = AM$
2340 GW = GW + VAL(WT$(I))
2350 AM = UN(I): GOSUB 180:UN$(I) = AM$
2360 GU = GU + VAL(UN$(I))
2370 GA = GA + VAL(AD$(I))
2380 DE = VAL(SS$(I)) + VAL(WT$(I)) + VAL(UN$(I)) + VAL(AD$(I))
2390 AM = DE: GOSUB 180:DE$(I) = AM$
2400 GD = GD + VAL(DE$(I))
2410 CK = VAL(GP$(I)) - VAL(DE$(I))
2420 AM = CK: GOSUB 180:CK$(I) = AM$
2430 GC = GC + VAL(CK$(I))
2440 NEXT I
2450 POKE 34,0
2460 AM = GH: GOSUB 180:GH$ = AM$
2470 AM = GG: GOSUB 180:GG$ = AM$
2480 AM = GS: GOSUB 180:GS$ = AM$
2490 AM = GW: GOSUB 180:GW$ = AM$
2500 AM = GU: GOSUB 180:GU$ = AM$
2510 AM = GA: GOSUB 180:GA$ = AM$
2520 AM = GD: GOSUB 180:GD$ = AM$
2530 AM = GC: GOSUB 180:GC$ = AM$
2540 GOTO 500
2599 REM ROUTINE TO CALCULATE F.I.T. WITHHOLDINGS
2600 IF AW <27.01 THEN WT = 0: RETURN
2610 IF AW <62.01 THEN AW = AW -27:WT = AW *.12: RETURN
2620 IF AW <171.01 THEN AW = AW -62:WT = AW *.16 +4.2: RETURN
2630 IF AW <240.01 THEN AW = AW -171:WT = AW *.2 +21.64: RETURN
2640 IF AW <325.01 THEN AW = AW -240:WT = AW *.24 +35.44: RETURN
2650 IF AW <433.01 THEN AW = AW -325:WT = AW *.3 +55.84: RETURN
2660 IF AW <535.01 THEN AW = AW -433:WT = AW *.34 +88.24: RETURN
2670 AW = AW -535:WT = AM *.37 +122.92: RETURN
2680 IF AW <46.01 THEN WT = 0: RETURN
2690 IF AW <117.01 THEN AW = AW -46:WT = AW *.12: RETURN
2700 IF AW <230.01 THEN AW = AW -117:WT = AW *.16 +8.52: RETURN
2710 IF AW <356.01 THEN AW = AW -230:WT = AW *.19 +26.6: RETURN
2720 IF AW <454.01 THEN AW = AW -356:WT = AW *.24 +50.54: RETURN
2730 IF AW <556.01 THEN AW = AW -454:WT = AW *.27 +74.06: RETURN
2740 IF AW <658.01 THEN AW = AW -556:WT = AW *.32 +101.6: RETURN
2750 AW = AW -658:WT = AW *.37 +134.24: RETURN
2999 REM ROUTINE TO PRINT PAYROLL RESULTS
3000 INPUT "PRESS 'RETURN' WHEN READY FOR PRINTOUT";A$
3010 IF PR THEN GOSUB 800:PQ$ = "80N": PRINT PQ$
3040 PRINT D$;: HTAB (25): PRINT PPS$: PRINT : PRINT
3050 PRINT CHR$(15)
3060 PRINT "NAME"; SPC( 16);"RATE/HR"; SPC( 5);"HOURS"; SPC( 5);" GROSS"; SPC( 5);" FICA"; SPC( 5);" FIT "; SPC( 5);"UNIFORM"; SPC( 5);"ADVANCE"; SPC( 5);"DEDUCTIONS"; SPC( 5);" NET "
3070 PRINT "----"; SPC( 16);"-------"; SPC( 5);"-----"; SPC( 5);" -----"; SPC( 5);" ----"; SPC( 5);" --- "; SPC( 5);"-------"; SPC( 5);"-------"; SPC( 5);"----------"; SPC( 5);" --- "
3080 FOR I = 1 TO NE
3090 IF VAL(GP$(I)) = 0 THEN 3130
3100 PRINT NAME$(I); SPC( 20 - LEN(NAME$(I))); SPC( 7 - LEN(RA$(I)));RA$(I); SPC( 10 - LEN(TH$(I)));TH$(I); SPC( 11 - LEN(GP$(I)));GP$(I); SPC( 10 - LEN(SS$(I)));SS$(I);
3110 PRINT SPC( 11 - LEN(WT$(I)));WT$(I); SPC( 12 - LEN(UN$(I)));UN$(I); SPC( 12 - LEN(AD$(I)));AD$(I); SPC( 13 - LEN(DE$(I)));DE$(I); SPC( 13 - LEN(CK$(I)));CK$(I)
3120 PRINT DASH$
3130 NEXT I
3140 PRINT : PRINT : PRINT "TOTAL"; SPC( 32 - LEN(GH$));GH$; SPC( 11 - LEN(GG$));GG$; SPC( 10 - LEN(GS$));GS$;
3150 PRINT SPC( 11 - LEN(GW$));GW$; SPC( 12 - LEN(GU$));GU$; SPC( 12 - LEN(GA$));GA$; SPC( 13 - LEN(GD$));GD$; SPC( 13 - LEN(GC$));GC$
3160 PRINT CHR$(18)
3170 IF PR THEN PQ$ = "I": PRINT PQ$: GOSUB 850
3200 GOTO 500
3999 REM ROUTINE TO PRINT CHECKS
4000 HOME : INPUT "HAVE ALL YTD AND QTD FILES BEEN UPDATED (Y/N) ? ";IC$: IF IC$ = "Y" THEN 4030
4010 IF IC$ = "N" THEN 500
4020 PRINT CHR$(7): GOTO 4000
4030 PRINT : INPUT "ENTER PAY PERIOD ENDING DATE -> ";PD$: PRINT
4040 INPUT "INSERT CHECKS--PRESS 'RETURN' WHEN READY";A$
4050 REM USE NEBS COMPUTER FORM 9024
4060 IF PR THEN GOSUB 800:PQ$ = "80N": PRINT PQ$: PRINT CHR$(27)"C" CHR$(42);
4070 IF PR THEN PRINT CHR$(27)"B" CHR$(20) CHR$(0);
4090 FOR I = 1 TO NE
4100 IF VAL(GP$(I)) = 0 THEN 4270
4110 GOSUB 4340
4120 MO$ = MO$ +" AND " + RIGHT$(CK$(I),2) +"/100 "
4125 IF PR THEN PRINT CHR$(27)"G"
4130 PRINT "PAY PERIOD ENDING: ";PD$; SPC( 25);"SSN ";SN$(I)
4140 IF PR THEN PRINT CHR$(27)"H": PRINT CHR$(15)
4150 PRINT "NAME"; SPC( 16);"RATE/HR"; SPC( 5);"HOURS"; SPC( 5);" GROSS"; SPC( 5);" FICA"; SPC( 5);" FIT "; SPC( 5);"UNIFORM"; SPC( 5);"ADVANCE"; SPC( 5);"DEDUCTIONS"; SPC( 5);" NET "
4160 PRINT "----"; SPC( 16);"-------"; SPC( 5);"-----"; SPC( 5);" -----"; SPC( 5);" ----"; SPC( 5);" --- "; SPC( 5);"-------"; SPC( 5);"-------"; SPC( 5);"----------"; SPC( 5);" --- "
4170 PRINT NAME$(I); SPC( 20 - LEN(NAME$(I))); SPC( 7 - LEN(RA$(I)));RA$(I); SPC( 10 - LEN(TH$(I)));TH$(I); SPC( 11 - LEN(GP$(I)));GP$(I); SPC( 10 - LEN(SS$(I)));SS$(I);
4180 PRINT SPC( 11 - LEN(WT$(I)));WT$(I); SPC( 12 - LEN(UN$(I)));UN$(I); SPC( 12 - LEN(AD$(I)));AD$(I); SPC( 13 - LEN(DE$(I)));DE$(I); SPC( 13 - LEN(CK$(I)));CK$(I)
4190 IF PR THEN PRINT CHR$(18): PRINT CHR$(27)"G"
4195 IF PR THEN PRINT CHR$(11)
4200 PRINT SPC( 60 - LEN(D$));D$; SPC( 15 - LEN(CK$(I)));CK$(I)
4210 PRINT : PRINT
4220 PRINT SPC( 7);NAME$(I)
4240 PRINT
4250 PRINT SPC( 7);MO$
4260 IF PR THEN PRINT CHR$(27)"H": PRINT CHR$(12);
4270 NEXT I
4280 IF PR THEN PRINT CHR$(27)"C" CHR$(66);:PQ$ = "I": PRINT PQ$: GOSUB 850
4320 GOTO 500
4330 REM ROUTINE TO CONVERT DOLLARS FROM NUMERALS TO LETTERS
4340 MO$ = "":AM = INT( VAL(CK$(I)))
4350 IF AM <1 THEN MO$ = "ZERO": RETURN
4360 IF AM >999 THEN XX = AM - INT(AM/1000) *1000:AM = INT(AM/1000): GOSUB 4360:MO$ = MO$ +" THOUSAND ":AM = XX
4370 IF AM >99 THEN XY = AM:AM = INT(AM/100): GOSUB 4360:MO$ = MO$ +" HUNDRED ":AM = XY -AM *100
4380 IF AM >19 THEN MO$ = MO$ +DO$( INT(AM/10)) +" ":AM = AM -10 * INT(AM/10)
4390 IF AM THEN MO$ = MO$ +DO$(AM +9)
4400 RETURN
5000 REM ROUTINE TO UPDATE ALL YTD AND QTD FILES
5010 HOME : VTAB 12: INVERSE : PRINT "**UPDATING EMPLOYEE YTD AND QTD FILES**": NORMAL
5020 FOR I = 1 TO NE
5030 IF VAL(GP$(I)) = 0 THEN 5200
5040 PRINT CD$;"OPEN Y";NAME$(I)
5050 PRINT CD$;"READ Y";NAME$(I)
5060 INPUT Y1: INPUT Y2: INPUT Y3: INPUT SN$(I)
5070 INPUT Q1: INPUT Q2: INPUT Q3
5080 PRINT CD$;"CLOSE Y";NAME$(I)
5090 Y6 = Y1 + VAL(GP$(I))
5100 Y7 = Y2 + VAL(SS$(I))
5110 Y8 = Y3 + VAL(WT$(I))
5120 Q6 = Q1 + VAL(GP$(I))
5130 Q7 = Q2 + VAL(SS$(I))
5140 Q8 = Q3 + VAL(WT$(I))
5150 PRINT CD$;"OPEN Y";NAME$(I)
5160 PRINT CD$;"WRITE Y";NAME$(I)
5170 PRINT Y6: PRINT Y7: PRINT Y8: PRINT SN$(I)
5180 PRINT Q6: PRINT Q7: PRINT Q8
5190 PRINT CD$;"CLOSE Y";NAME$(I)
5200 NEXT I
5210 REM ROUTINES TO UPDATE YTD/QTD TOTAL FILES
5220 IF VAL(GG$) = 0 THEN 500
5230 PRINT CD$;"OPEN YTOTAL"
5240 PRINT CD$;"READ YTOTAL"
5250 INPUT A1: INPUT A2: INPUT A3
5260 PRINT CD$;"CLOSE YTOTAL"
5270 B1 = A1 + VAL(GG$)
5280 B2 = A2 + VAL(GS$)
5290 B3 = A3 + VAL(GW$)
5300 PRINT CD$;"OPEN YTOTAL"
5310 PRINT CD$;"WRITE YTOTAL"
5320 PRINT B1: PRINT B2: PRINT B3
5330 PRINT CD$;"CLOSE YTOTAL"
5340 PRINT CD$;"OPEN QTOTAL"
5350 PRINT CD$;"READ QTOTAL"
5360 INPUT C1: INPUT C2: INPUT C3
5370 PRINT CD$;"CLOSE QTOTAL"
5380 D1 = C1 + VAL(GG$)
5390 D2 = C2 + VAL(GS$)
5400 D3 = C3 + VAL(GW$)
5410 PRINT CD$;"OPEN QTOTAL"
5420 PRINT CD$;"WRITE QTOTAL"
5430 PRINT D1: PRINT D2: PRINT D3
5440 PRINT CD$;"CLOSE QTOTAL"
5450 GOTO 500
6000 HOME : PRINT "TO CREATE/EDIT/DELETE EMPLOYEE FILES": PRINT
6010 PRINT "1. INSERT/EDIT/DELETE DATA STATEMENTS"
6020 PRINT " BETWEEN LINES 1000-2000 AND CHANGE"
6030 PRINT " LINE 90 TO INDICATE # OF EMPLOYEES"
6040 PRINT " SEE LINE #1020 FOR FORMAT TO USE"
6050 PRINT : PRINT "2. TO CREATE/EDIT YTD AND QTD EMPLOYEE"
6060 PRINT " DISK FILES, PRESS 'RETURN' WHEN READY"
6070 PRINT "** ENTER EMPLOYEE'S NAME EXACTLY AS"
6080 PRINT " ENTERED ON DATA STATEMENTS"
6090 PRINT
6100 PRINT " EMPLOYEE'S NAME MUST NOT": PRINT " EXCEED 20 CHARACTERS"
6110 INPUT "";IC$
6120 HOME : VTAB 8: PRINT " 1. CREATE EMPLOYEE'S FILE": PRINT " 2. EDIT EMPLOYEE'S FILE": VTAB 12: HTAB 20: INPUT "WHICH: ";A$:A = VAL(A$): IF A <1 OR A >2 THEN PRINT CHR$(7): GOTO 6120
6130 ON A GOTO 6140,6500
6140 HOME : PRINT "**CREATING QTD AND YTD EMPLOYEE FILES**": PRINT
6150 PRINT : INPUT "ENTER EMPLOYEE'S NAME -> ";NAME$: IF NAME$ = "" THEN GOTO 500
6160 PRINT : INPUT "SOCIAL SECURITY # -> ";SS$
6170 PRINT : INPUT "YTD GROSS PAY -> ";YT$:YT = VAL(YT$)
6180 PRINT : INPUT "YTD FICA W/H -> ";YU$:YU = VAL(YU$)
6190 PRINT : INPUT "YTD FIT W/H -> ";YV$:YV = VAL(YV$)
6200 PRINT : INPUT "QTD GROSS PAY -> ";QT$:QT = VAL(QT$)
6210 PRINT : INPUT "QTD FICA W/H -> ";QU$:QU = VAL(QU$)
6220 PRINT : INPUT "QTD FIT W/H -> ";QV$:QV = VAL(QV$)
6230 VTAB 21: INPUT "INFORMATION CORRECT (Y/N) ? ";IC$: IF IC$ = "Y" THEN 6260
6240 IF IC$ = "N" THEN 6140
6250 PRINT CHR$(7): GOTO 6230
6260 PRINT CD$;"OPEN Y";NAME$
6270 PRINT CD$;"DELETE Y";NAME$
6280 PRINT CD$;"OPEN Y";NAME$
6290 PRINT CD$;"WRITE Y";NAME$
6300 PRINT YT: PRINT YU: PRINT YV: PRINT SS$
6310 PRINT QT: PRINT QU: PRINT QV
6320 PRINT CD$;"CLOSE Y";NAME$
6330 GOTO 500
6500 HOME : PRINT " **EDITING EMPLOYEE'S FILE**"
6510 PRINT : INPUT "ENTER EMPLOYEE'S NAME -> ";NAME$: IF NAME$ = "" THEN GOTO 500
6520 PRINT CD$;"OPEN Y";NAME$
6530 PRINT CD$;"READ Y";NAME$
6540 INPUT YT: INPUT YU: INPUT YV: INPUT SS$: INPUT QT: INPUT QU: INPUT QV
6550 PRINT CD$;"CLOSE Y";NAME$
6560 VTAB 3: CALL -958: PRINT : PRINT : PRINT "EMPLOYEE'S NAME ";NAME$
6570 PRINT : PRINT "SOCIAL SECURITY # ";SS$
6580 PRINT : PRINT "YTD GROSS PAY ";YT
6590 PRINT : PRINT "YTD FICA W/H ";YU
6600 PRINT : PRINT "YTD FIT W/H ";YV
6610 PRINT : PRINT "QTD GROSS PAY ";QT
6620 PRINT : PRINT "QTD FICA W/H ";QU
6630 PRINT : PRINT "QTD FIT W/H ";QV
6640 VTAB 5: HTAB 21: INPUT "";JJ$: IF JJ$ = "" THEN VTAB 5: HTAB 21: PRINT NAME$: GOTO 6660
6650 NAME$ = JJ$
6660 VTAB 7: HTAB 21: INPUT "";JJ$: IF JJ$ = "" THEN VTAB 7: HTAB 21: PRINT SS$: GOTO 6680
6670 SS$ = JJ$
6680 VTAB 9: HTAB 21: INPUT "";YT$: IF YT$ = "" THEN VTAB 9: HTAB 21: PRINT YT: GOTO 6700
6690 YT = VAL(YT$)
6700 VTAB 11: HTAB 21: INPUT "";YU$: IF YU$ = "" THEN VTAB 11: HTAB 21: PRINT YU: GOTO 6720
6710 YU = VAL(YU$)
6720 VTAB 13: HTAB 21: INPUT "";YV$: IF YV$ = "" THEN VTAB 13: HTAB 21: PRINT YV: GOTO 6740
6730 YV = VAL(YV$)
6740 VTAB 15: HTAB 21: INPUT "";QT$: IF QT$ = "" THEN VTAB 15: HTAB 21: PRINT QT: GOTO 6760
6750 QT = VAL(QT$)
6760 VTAB 17: HTAB 21: INPUT "";QU$: IF QU$ = "" THEN VTAB 17: HTAB 21: PRINT QU: GOTO 6780
6770 QU = VAL(QU$)
6780 VTAB 19: HTAB 21: INPUT "";QV$: IF QV$ = "" THEN VTAB 19: HTAB 21: PRINT QV: GOTO 6800
6790 QV = VAL(QV$)
6800 VTAB 22: INPUT "INFORMATION CORRECT (Y/N) ? ";IC$: IF IC$ = "Y" THEN 6260
6810 IF IC$ = "N" THEN 6560
6820 PRINT CHR$(7): GOTO 6800
6999 REM CREATE/EDIT QTD/YTD TOTAL FILES
7000 HOME : VTAB 8: PRINT " 1. CREATE QTD AND YTD TOTAL FILES": PRINT " 2. EDIT QTD AND YTD TOTAL FILES": VTAB 12: HTAB 20: INPUT "WHICH: ";A$:A = VAL(A$): IF A <1 OR A >2 THEN PRINT CHR$(7): GOTO 7000
7010 ON A GOTO 7020,7500
7020 HOME : PRINT "**CREATING QTD AND YTD TOTAL FILES**"
7030 PRINT
7040 PRINT : INPUT "TOTAL QTD GROSS PAY -> ";QA$:QA = VAL(QA$)
7050 PRINT : INPUT "TOTAL QTD FICA W/H -> ";QB$:QB = VAL(QB$)
7060 PRINT : INPUT "TOTAL QTD FIT W/H -> ";QC$:QC = VAL(QC$)
7070 PRINT : INPUT "TOTAL YTD GROSS PAY -> ";YA$:YA = VAL(YA$)
7080 PRINT : INPUT "TOTAL YTD FICA W/H -> ";YB$:YB = VAL(YB$)
7090 PRINT : INPUT "TOTAL YTD FIT W/H -> ";YC$:YC = VAL(YC$)
7100 VTAB 19: INPUT "INFORMATION CORRECT (Y/N) ? ";IC$: IF IC$ = "Y" THEN 7130
7110 IF IC$ = "N" THEN 7020
7120 PRINT CHR$(7): GOTO 7100
7130 PRINT CD$;"OPEN YTOTAL"
7140 PRINT CD$;"CLOSE YTOTAL"
7150 PRINT CD$;"OPEN YTOTAL"
7160 PRINT CD$;"WRITE YTOTAL"
7170 PRINT YA: PRINT YB: PRINT YC
7180 PRINT CD$;"CLOSE YTOTAL"
7190 PRINT CD$;"OPEN QTOTAL"
7200 PRINT CD$;"CLOSE QTOTAL"
7210 PRINT CD$;"OPEN QTOTAL"
7220 PRINT CD$;"WRITE QTOTAL"
7230 PRINT QA: PRINT QB: PRINT QC
7240 PRINT CD$;"CLOSE QTOTAL"
7250 GOTO 500
7500 REM EDIT QTD AND YTD TOTAL FILES
7510 HOME : PRINT "**EDITING QTD AND YTD TOTAL FILES**"
7520 PRINT CD$;"OPEN YTOTAL"
7530 PRINT CD$;"READ YTOTAL"
7540 INPUT A1: INPUT A2: INPUT A3
7550 PRINT CD$;"CLOSE YTOTAL"
7560 PRINT CD$;"OPEN QTOTAL"
7570 PRINT CD$;"READ QTOTAL"
7580 INPUT C1: INPUT C2: INPUT C3
7590 PRINT CD$;"CLOSE QTOTAL"
7600 HOME : VTAB 2: PRINT SPC( 9);"**QTD AND YTD TOTALS**": PRINT : PRINT
7610 POKE 32,8: PRINT
7620 PRINT "QTD GROSS PAY = ";C1
7630 PRINT : PRINT "QTD FICA W/H = ";C2
7640 PRINT : PRINT "QTD FIT W/H = ";C3
7650 PRINT : PRINT "YTD GROSS PAY = ";A1
7660 PRINT : PRINT "YTD FICA W/H = ";A2
7670 PRINT : PRINT "YTD FIT W/H = ";A3
7680 POKE 32,0
7690 VTAB 6: HTAB 25: INPUT "";JJ$: IF JJ$ = "" THEN VTAB 6: HTAB 25: PRINT C1: GOTO 7710
7700 C1 = VAL(JJ$)
7710 VTAB 8: HTAB 25: INPUT "";JJ$: IF JJ$ = "" THEN VTAB 8: HTAB 25: PRINT C2: GOTO 7730
7720 C2 = VAL(JJ$)
7730 VTAB 10: HTAB 25: INPUT "";JJ$: IF JJ$ = "" THEN VTAB 10: HTAB 25: PRINT C3: GOTO 7750
7740 C3 = VAL(JJ$)
7750 VTAB 12: HTAB 25: INPUT "";JJ$: IF JJ$ = "" THEN VTAB 12: HTAB 25: PRINT A1: GOTO 7770
7760 A1 = VAL(JJ$)
7770 VTAB 14: HTAB 25: INPUT "";JJ$: IF JJ$ = "" THEN VTAB 14: HTAB 25: PRINT A2: GOTO 7790
7780 A2 = VAL(JJ$)
7790 VTAB 16: HTAB 25: INPUT "";JJ$: IF JJ$ = "" THEN VTAB 16: HTAB 25: PRINT A3: GOTO 7810
7800 A3 = VAL(JJ$)
7810 VTAB 21: HTAB 8: INPUT "INFORMATION CORRECT (Y/N) ? ";IC$: IF IC$ = "Y" THEN 7840
7820 IF IC$ = "N" THEN 7690
7830 PRINT CHR$(7): GOTO 7810
7840 YA = A1:YB = A2:YC = A3:QA = C1:QB = C2:QC = C3: GOTO 7130
8999 REM PRINT QTD AND YTD EMPLOYEE FILES
9000 PRINT : INPUT "ENTER EMPLOYEE'S NAME -> ";NAME$: IF NAME$ = "" THEN GOTO 500
9010 PRINT CD$;"OPEN Y";NAME$
9020 PRINT CD$;"READ Y";NAME$
9030 INPUT YT: INPUT YU: INPUT YV: INPUT SS$: INPUT QT: INPUT QU: INPUT QV
9040 PRINT CD$;"CLOSE Y";NAME$
9050 HOME
9060 IF PR THEN GOSUB 800
9070 VTAB 3: CALL -958: PRINT : PRINT : PRINT "EMPLOYEE'S NAME ";NAME$
9080 PRINT : PRINT "SOCIAL SECURITY # ";SS$
9090 PRINT : PRINT "YTD GROSS PAY ";YT
9100 PRINT : PRINT "YTD FICA W/H ";YU
9110 PRINT : PRINT "YTD FIT W/H ";YV
9120 PRINT : PRINT "QTD GROSS PAY ";QT
9130 PRINT : PRINT "QTD FICA W/H ";QU
9140 PRINT : PRINT "QTD FIT W/H ";QV
9150 IF PR THEN GOSUB 850
9160 PRINT : PRINT : INPUT "PRESS 'RETURN' WHEN READY ";IC$: GOTO 500
10000 REM PRINT QTD AND YTD TOTAL FILES
10010 PRINT CD$;"OPEN YTOTAL"
10020 PRINT CD$;"READ YTOTAL"
10030 INPUT A1: INPUT A2: INPUT A3
10040 PRINT CD$;"CLOSE YTOTAL"
10050 PRINT CD$;"OPEN QTOTAL"
10060 PRINT CD$;"READ QTOTAL"
10070 INPUT C1: INPUT C2: INPUT C3
10080 PRINT CD$;"CLOSE QTOTAL"
10090 IF PR THEN GOSUB 800
10100 HOME : VTAB 2: PRINT SPC( 9);"**QTD AND YTD TOTALS**": PRINT : PRINT
10110 POKE 32,8: PRINT
10120 PRINT "QTD GROSS PAY = ";C1
10130 PRINT : PRINT "QTD FICA W/H = ";C2
10140 PRINT : PRINT "QTD FIT W/H = ";C3
10150 PRINT : PRINT "YTD GROSS PAY = ";A1
10160 PRINT : PRINT "YTD FICA W/H = ";A2
10170 PRINT : PRINT "YTD FIT W/H = ";A3
10180 POKE 32,0
10190 IF PR THEN GOSUB 850
10200 VTAB 20: INPUT " PRESS 'RETURN' TO CONTINUE ";IC$: GOTO 500
Text found in Volume_125_Dallas_Assortment_3.dsk/WHEEL OF FORTUNE.bas:
1 REM ----------------WHEEL OF FORTUNEJOE ISHAM----------------
2 FOR L = 1 TO 40: POKE 33,L: PRINT : FOR PAUSE = 1 TO 40: NEXT : NEXT : FOR L = 1 TO 24: PRINT : FOR PAUSE = 1 TO 40: NEXT : NEXT : VTAB 1: FOR L = 1 TO 20: PRINT "][";: NEXT L: FOR L = 2 TO 23: VTAB L: HTAB 1: PRINT "][";: HTAB 39: PRINT "][";: NEXT L: FOR K = 19 TO 23 STEP 4: VTAB K: FOR L = 1 TO 20: PRINT "][";: NEXT L,K
3 DEF FN IP(C) = IP(2) +IP(3) +IP(4) +IP(6) +IP(7) +IP(8) +IP(10) +IP(11) +IP(12) +IP(13) +IP(14) +IP(16) +IP(17) +IP(18) +IP(19) +IP(20) +IP(22) +IP(23) +IP(24) +IP(25) +IP(26)
4 QA = 101
5 DIM WH$(30),WI$(30),WJ$(30),RE$(QA),IT$(QA),IP(26),UP(QA)
6 FOR LOOP = 1 TO QA: READ REAL$(LOOP),ITZA$(LOOP): NEXT LOOP: DATA THE PRINCE AND PRINCESS OF WALES,PEOPLE,THE GOLDEN GATE BRIDGE,A LANDMARK,RONALD WILSON REAGAN,A PERSON,THE TAJ MAHAL,A LANDMARK,SALT LAKE CITY,A PLACE
7 DATA WATER TOWER,A THING,THE FLORIDA KEYS,A PLACE,DWIGHT DAVID EISENHOWER,A PERSON,PEANUTS,THINGS,NORTHAMPTONSHIRE,A PLACE,SALT AND PEPPER SHAKERS,THINGS,THE OLYMPIC GAMES,AN EVENT,AIR CONDITIONER,A THING
8 DATA JOHN WESLEY HARDIN,A PERSON,SAM HOUSTON,A PERSON,CHRISTOPHER COLUMBUS,A PERSON,QUEEN ELIZABETH AND PRINCE PHILIP,PEOPLE,MARGARET THATCHER,A PERSON,SAM RAYBURN,A PERSON,JIMMY DURANTE,A PERSON,CONRAD HILTON,A PERSON
9 DATA REUNION ARENA,A PLACE,MANHATTAN ISLAND,A PLACE,THE EIFFEL TOWER,A LANDMARK,GINA LOLLOBRIGIDA,A PERSON,HENRY WADSWORTH LONGFELLOW,A PERSON,BENJAMIN FRANKLIN PIERCE,A FICTIONAL CHARACTER
10 DATA GREENLAND,A PLACE,ORBIT THE EARTH,A PHRASE,ROYAL CANADIAN MOUNTED POLICE,PEOPLE,DUTCH DOOR,A THING,SANTA FE NEW MEXICO,A PLACE,ROBERT FROST,A PERSON,PUT TWO AND TWO TOGETHER,A PHRASE,ABSENCE OF MALICE,A TITLE
11 DATA HIGH TIDE,A THING,MOTHER GOOSE,A FICTIONAL CHARACTER,MEASURE FOR MEASURE,A TITLE,WALKING A THIN LINE,A PHRASE,YUKON TERRITORY,A PLACE,DIANA ROSS,A PERSON,LET BYGONES BE BYGONES,A PHRASE,MAINE LOBSTER,A THING
12 DATA IS THERE A DOCTOR IN THE HOUSE,A PHRASE,SODOM AND GOMORRAH,PLACES,DRAFT BEER,A THING,UNIDENTIFIED FLYING OBJECT,A THING,DICK CAVETT,A PERSON,PRAISE THE LORD AND PASS THE AMMUNITION,A TITLE,TURN OVER A NEW LEAF,A PHRASE
13 DATA MILK CHOCOLATE,A THING,ON GOLDEN POND,A TITLE,SKINNY AS A RAIL,A PHRASE,CONGRESSIONAL RECORD,A TITLE,WHEAT GERM,A THING,FALSE ALARM,A THING,UNFINISHED BUSINESS,A PHRASE,BORN WITH A SILVER SPOON IN YOUR MOUTH,A PHRASE
14 DATA MAUREEN STAPLETON,A PERSON,PARK AVENUE,A PLACE,CATSKILL MOUNTAINS,A PLACE,MERYL STREEP,A PERSON,THE STRAW THAT BROKE THE CAMEL'S BACK,A PHRASE,BIRD OF PARADISE,A THING,INSTANT COFFEE,A THING
15 DATA PUMPERNICKEL BREAD,A THING,HALF A LOAF IS BETTER THAN NONE,A PHRASE,BACK TO THE SALT MINES,A PHRASE,BURLESQUE SHOW,A THING,I'M ALWAYS CHASING RAINBOWS,A PHRASE,STRAIGHT AS AN ARROW,A PHRASE
16 DATA JASON ROBARDS,A PERSON,OLD FAITHFUL,A LANDMARK,CHERRY BLOSSOM FESTIVAL,AN EVENT,LIVING HIGH ON THE HOG,A PHRASE,FIGHT FIRE WITH FIRE,A PHRASE,ATLANTA BRAVES,PEOPLE,CAULIFLOWER,A THING,POCKET WATCH,A THING
17 DATA DON'T DRINK THE WATER,A TITLE,PILOT LIGHT,A THING,TWENTY THOUSAND LEAGUES UNDER THE SEA,A TITLE,SPENCER TRACY,A PERSON,PUEBLO COLORADO,A PLACE,DOUBLE CHIN,A THING,PIGS IN A BLANKET,THINGS,QUOTATION MARKS,THINGS
18 DATA FREIGHT TRAIN,A THING,DAMSEL IN DISTRESS,A PERSON,STANDING ROOM ONLY,A PHRASE,COOPERSTOWN NEW YORK,A PLACE,ASTRONAUT,AN OCCUPATION,THE STARS AND STRIPES FOREVER,A TITLE,IF AT FIRST YOU DON'T SUCCEED TRY AGAIN,A PHRASE
19 DATA JANE WYMAN,A PERSON,ORDER IN THE COURT,A PHRASE,SAN FRANCISCO BAY,A PLACE,REMBRANDT,A PERSON,IN ONE EAR AND OUT THE OTHER,A PHRASE,GREAT SMOKY MOUNTAINS,A PLACE,CAPITOL HILL,A PLACE
30 VTAB 7: HTAB 13: PRINT "WHEEL OF FORTUNE": VTAB 9: HTAB 4: PRINT "BASED ON THE NBC TELEVISION SERIES": VTAB 10: HTAB 11: PRINT "HOSTED BY PAT SAJAK": VTAB 13: HTAB 7: PRINT "PROGRAM WRITTEN BY JOE ISHAM"
40 REM SET UP WHISTLE
41 POKE 771,162: POKE 772,1: POKE 773,142: POKE 774,2: POKE 775,3: POKE 776,169: POKE 777,4: POKE 778,141: POKE 779,1
42 POKE 780,3: POKE 781,142: POKE 782,0: POKE 783,3: POKE 784,32: POKE 785,31: POKE 786,3: POKE 787,174: POKE 788,2
43 POKE 789,3: POKE 790,232: POKE 791,224: POKE 792,120: POKE 793,142: POKE 794,2: POKE 795,3: POKE 796,144: POKE 797,234
44 POKE 798,96: POKE 799,173: POKE 800,48: POKE 801,192: POKE 802,136: POKE 803,208: POKE 804,5: POKE 805,206: POKE 806,1
45 POKE 807,3: POKE 808,240: POKE 809,9: POKE 810,202: POKE 811,208: POKE 812,245: POKE 813,174: POKE 814,0: POKE 815,3
46 POKE 816,76: POKE 817,31: POKE 818,3: POKE 819,96
47 FL$ = "TNSRHLDCFPMWYBGVKQXJZ"
48 READ MV(1): FOR LOOP = 1 TO 24: READ WH$(LOOP): NEXT LOOP: DATA 750,BANKRUPT,350,250,600,400,150,200,250,400,LOSE A TURN,450,150,200,100,FREE SPIN,200,300,400,500,100,200,300,175,750
49 READ MV(2): FOR LOOP = 1 TO 24: READ WI$(LOOP): NEXT LOOP: DATA 1000,BANKRUPT,600,250,200,1000,150,300,400,750,450,LOSE A TURN,800,150,900,250,BANKRUPT,400,550,300,200,900,200,400,300
50 READ MV(3): FOR LOOP = 1 TO 24: READ WJ$(LOOP): NEXT LOOP: DATA 2000,BANKRUPT,700,500,350,400,550,300,200,900,200,400,300,BANKRUPT,600,250,200,LOSE A TURN,350,2000,500,250,300,800,1500
51 VTAB 21: HTAB 11: PRINT "INSTRUCTIONS (";: INVERSE : PRINT "Y";: NORMAL : PRINT "/N) ?";: GET YN$: PRINT
52 IF YN$ = "N" THEN VTAB 20: CALL -958: VTAB 22: GOTO 96
53 HOME : INVERSE : PRINT "WHEEL OF FORTUNE": NORMAL : PRINT : PRINT "THIS GAME IS BASED ON THE NBC-TV GAME SHOW 'WHEEL OF FORTUNE.' IN THIS GAME, YOUR OBJECT IS TO SOLVE PUZZLES LIKE YOUWOULD SOLVE WHEN PLAYING 'HANGMAN.' YOUEARN MONEY EACH TIME YOU GUESS";
54 PRINT " COR- RECTLY, BUT IF YOU HIT ";: INVERSE : PRINT "BANKRUPT";: NORMAL : PRINT ", YOU LOSE IT ALL!": PRINT : PRINT "VOWELS COST $250 EACH, BUT CONSONANTS ARE FREE."
55 PRINT : PRINT "IF YOU WANT THE COMPUTER TO PLAY ONE OR MORE OF THE THREE PLAYERS, SIMPLY TYPE ";: INVERSE : PRINT "APPLE";: NORMAL : PRINT " AS THE PLAYER'S NAME(S)."
56 PRINT : FLASH : PRINT "NOTE";: NORMAL : PRINT ": THE DESCRIPTION ";: INVERSE : PRINT "A PERSON";: NORMAL : PRINT " DOES NOT": PRINT "NECESSARILY DENOTE A PROPER NAME."
96 VTAB 22: INPUT "THREE PLAYERS:";PL$(1),PL$(2),PL$(3)
97 IF LEFT$(PL$(1),5) = "APPLE" AND LEFT$(PL$(2),5) = "APPLE" AND LEFT$(PL$(3),5) = "APPLE" THEN VTAB 22: CALL -868: PRINT "DISPLAY ANSWERS (Y/";: INVERSE : PRINT "N";: NORMAL : PRINT ") ?";: GET YD$: PRINT
98 VTAB 22: CALL -868: PRINT "PRESS ANY KEY TO BEGIN...": GOSUB 11001
99 FOR LOOP = 1 TO 3:GT(LOOP) = 0:FS(LOOP) = 0: NEXT LOOP
100 FOR PZ = 1 TO 6: FOR LOOP = 1 TO 3:CASH(LOOP) = 0: NEXT LOOP
101 UL$ = "":G = G +1: IF G >3 THEN G = 3
102 ST = ST +1: IF ST >3 THEN ST = ST -3
103 CC = 1
120 IF G = 2 THEN FOR LOOP = 1 TO 24:WH$(LOOP) = WI$(LOOP): NEXT LOOP
130 IF G = 3 THEN FOR LOOP = 1 TO 24:WH$(LOOP) = WJ$(LOOP): NEXT LOOP
131 PW = 0
132 TEXT : HOME : PRINT "TOP MONEY IS $"MV(G)" ";: HTAB 30: PRINT "PUZZLE #";PZ: POKE 34,1
133 FOR QQ = 1 TO 26:IP(QQ) = 0: NEXT QQ
134 ZT = INT( RND(1) *QA +1):REAL$ = REAL$(ZT):ITZA$ = ITZA$(ZT): IF UP(ZT) THEN 134
135 GOSUB 11002:UP(ZT) = 1
136 VTAB 16: FOR LOOP = 1 TO LEN(REAL$): IF MID$ (REAL$,LOOP,1) >"@" AND MID$ (REAL$,LOOP,1) <"[" THEN PRINT CHR$(95);: GOTO 138
137 PRINT MID$ (REAL$,LOOP,1);
138 NEXT LOOP: NORMAL : PRINT
139 VTAB 23: PRINT "THE PUZZLE IS : ";: INVERSE : PRINT ITZA$: NORMAL
140 C = ST -1
141 IF LEFT$(PL$(1),5) = "APPLE" AND LEFT$(PL$(2),5) = "APPLE" AND LEFT$(PL$(3),5) = "APPLE" AND YD$ = "Y" THEN VTAB 22: PRINT RE$
145 C = C +1: IF C >3 THEN C = 1
146 POKE 34,1: VTAB 2: CALL -868: PRINT PL$(C);"'";
147 IF RIGHT$(PL$(C),1) < >"S" THEN PRINT "S";
148 PRINT " TURN": POKE 34,2
149 GHESS$ = " "
155 IF LEFT$(PL$(C),5) = "APPLE" THEN 1000
158 GOSUB 10000
159 GOSUB 9000
160 QT = INT( RND(1) *30 +24)
170 FOR LOOP = 1 TO QT
171 PW = PW +1: IF PW = 25 THEN PW = 1
172 VTAB 4: PRINT WH$(PW);" ":SPEAK = PEEK( -16336):SPEAK = PEEK( -16336)
173 FOR PAUSE = 1 TO 1.7 *LOOP: NEXT PAUSE: NEXT LOOP
174 FF = FRE(0)
180 IF WH$(PW) = "FREE SPIN" THEN FS(C) = FS(C) +1: GOTO 158
190 IF VAL(WH$(PW)) THEN AMT = VAL(WH$(PW))
191 IF WH$(PW) = "BANKRUPT" THEN CALL 771:CASH(C) = 0: GOSUB 11000: GOSUB 9000: GOTO 250
192 IF WH$(PW) = "LOSE A TURN" THEN 250
193 VTAB 8: CALL -868
200 VTAB 11: PRINT "INPUT GUESS....";: INPUT GUESS$:GUESS$ = LEFT$(GUESS$,1):IZIT = 0: VTAB PEEK(37): CALL -868
201 IF (GUESS$ = "A" OR GUESS$ = "E" OR GUESS$ = "I" OR GUESS$ = "O" OR GUESS$ = "U") AND GH$ < >"B" THEN PRINT "YOU CAN'T DO THAT, THAT'S A VOWEL."; CHR$(7): FOR PAUSE = 1 TO 400: NEXT PAUSE: VTAB PEEK(37): CALL -868: GOTO 200
202 IF GUESS$ <"A" OR GUESS$ >"Z" THEN CALL -198: HTAB 1: GOTO 200
203 GOSUB 7000
210 FOR LOOP = 1 TO LEN(REAL$): IF MID$ (REAL$,LOOP,1) = GUESS$ THEN IZIT = 1: VTAB 16: HTAB LOOP: PRINT GU$;: CALL -198: IF GHESS$ < >"B" THEN CASH(C) = CASH(C) +AMT
220 NEXT LOOP
230 ZY = 1: GOSUB 11000
240 VTAB 20: HTAB ASC(GU$) -64: PRINT GU$;: HTAB 1
241 UL$ = UL$ +GU$
245 IF IZIT THEN IP( ASC(GU$) -64) = 0: GOTO 260
249 FOR SS = 1 TO 15:SOUND = PEEK( -16336) + PEEK( -16336) - PEEK( -16336): NEXT SS
250 IF FS(C) THEN VTAB 11: PRINT "WOULD YOU LIKE TO USE A FREE SPIN CARD (Y/";: INVERSE : PRINT "N";: NORMAL : PRINT ") ?";: GET ZZ$: PRINT
251 IF FS(C) THEN VTAB PEEK(37): CALL -868: VTAB PEEK(37): CALL -868: IF ZZ$ = "Y" THEN FS(C) = FS(C) -1: GOTO 158
255 GOTO 145
260 IF NOT FN IP(1) THEN VTAB 10: GOSUB 10050: PRINT "ONLY VOWELS LEFT-YOU MUST GUESS!":GHESS$ = "G": GOTO 263
261 GOSUB 11004: INPUT GHESS$: VTAB PEEK(37): CALL -868: VTAB PEEK(37): CALL -868:GHESS$ = LEFT$(GHESS$,1)
262 IF GHESS$ = "B" AND CASH(C) > = 250 THEN CASH(C) = CASH(C) -250: GOSUB 9000: GOTO 200
263 IF GHESS$ = "G" THEN VTAB 11: INPUT "TYPE YOUR ANSWER. INCLUDE ALL SPACES. ";GUESS$: IF GUESS$ = REAL$ THEN 8000
264 IF GHESS$ = "G" AND GUESS$ < >REAL$ THEN VTAB 10: CALL -868: VTAB 11: CALL -868: VTAB 12: CALL -868: PRINT "SORRY, THAT'S WRONG!": FOR PAUSE = 1 TO 650: NEXT PAUSE: VTAB PEEK(37): CALL -868: ON ( SGN( FN IP(1)) +1) GOTO 266,145
265 IF GHESS$ = "" OR GHESS$ = "S" THEN 159
266 IF GH$ = "G" AND GU$ < >RE$ AND NOT FN IP(1) THEN FOR PA = 10 TO 12: VTAB PA: CALL -868: NEXT PA: VTAB 10: PRINT "WE'VE REACHED A DRAW. THE SOLUTION IS BELOW. CASH ACCUMULATED ADDED TO VALUE OF NEXT GAME.": VTAB 16: PRINT RE$: GOSUB 9503: GOTO 101
267 GOTO 260
999 REM COMPUTER SECTION
1000 VTAB 11: PRINT "MY TURN.....": FOR PAUSE = 1 TO 150: NEXT PAUSE: VTAB PEEK(37): CALL -868
1001 GOSUB 9000
1002 QT = INT( RND(1) *30 +24)
1003 FOR LOOP = 1 TO QT:PW = PW +1 +( -24 *(PW = 24)): VTAB 4: PRINT WH$(PW);" ":SPEAK = PEEK( -16336):SPEAK = PEEK( -16336): FOR PAUSE = 1 TO 1.7 *LOOP: NEXT PAUSE,LOOP:FF = FRE(0)
1004 IF WH$(PW) = "FREE SPIN" THEN FS(C) = FS(C) +1: GOTO 1000
1005 IF VAL(WH$(PW)) THEN AMT = VAL(WH$(PW))
1006 IF WH$(PW) = "BANKRUPT" THEN CALL 771:CASH(C) = 0: GOSUB 9000: IF FS(C) THEN FS(C) = FS(C) -1: VTAB 11: PRINT "I'LL USE A FREE SPIN CARD": FOR PAUSE = 1 TO 200: NEXT PAUSE: VTAB PEEK(37): CALL -868: GOTO 1001
1007 IF WH$(PW) = "BANKRUPT" THEN 145
1008 IF WH$(PW) = "LOSE A TURN" THEN GOSUB 9000: IF FS(C) THEN FS(C) = FS(C) -1: VTAB 11: PRINT "I'LL USE A FREE SPIN CARD": FOR PAUSE = 1 TO 200: NEXT PAUSE: VTAB PEEK(37): CALL -868: GOTO 1001
1009 IF WH$(PW) = "LOSE A TURN" THEN 145
1010 VTAB 8: CALL -868: VTAB 11
1011 GUESS$ = MID$ (FL$,CC,1):CC = CC +1: FOR DD = 1 TO LEN(UL$): IF GU$ = MID$ (UL$,DD,1) THEN 1011
1012 NEXT DD:IZIT = 0: VTAB 11: PRINT "I'LL GUESS...";GU$: FOR PAUSE = 1 TO 200: NEXT PAUSE: VTAB PEEK(37): CALL -868
1013 FOR LOOP = 1 TO LEN(REAL$): IF MID$ (REAL$,LOOP,1) = GUESS$ THEN IZIT = 1: VTAB 16: HTAB LOOP: PRINT GU$;: CALL -198:CASH(C) = CASH(C) +AMT
1014 NEXT LOOP: VTAB 20: HTAB ASC(GU$) -64: PRINT GU$;: HTAB 1
1015 UL$ = UL$ +GU$
1016 IF IZIT THEN IP( ASC(GU$) -64) = 0: GOTO 1030
1017 FOR SS = 1 TO 15:SOUND = PEEK( -16336) + PEEK( -16336) - PEEK( -16336): NEXT SS
1018 IF FS(C) THEN FS(C) = FS(C) -1: VTAB 11: PRINT "I'LL USE A FREE SPIN CARD": FOR PAUSE = 1 TO 200: NEXT PAUSE: VTAB PEEK(37): CALL -868: GOTO 1001
1019 GOTO 145
1030 IF NOT FN IP(1) THEN VTAB 10: GOSUB 10050: PRINT "ONLY VOWELS LEFT...I'LL GUESS.": VTAB 12: SPEED= 100: PRINT RE$: SPEED= 255: GOTO 8000
1031 VTAB 11: PRINT "I'LL SPIN...": FOR PAUSE = 1 TO 200: NEXT PAUSE: VTAB PEEK(37): CALL -868: GOTO 1001
1999 END
2000 REM END OF DAY
2001 TEXT : HOME
2020 GT = GT(1):GW = 1: IF GT(2) >GT THEN GT = GT(2):GW = 2
2021 IF GT(3) >GT THEN GT = GT(3):GW = 3
2030 PRINT "WITH A TOTAL OF $"GT;",": PRINT PL$(GW)" IS THE WINNER FOR TODAY!"
2035 FOR LOOP = 1 TO 10: CALL -198: NEXT LOOP
2040 FOR PAUSE = 1 TO 1000: NEXT PAUSE
2044 PRINT
2045 IF LEFT$(PL$(GW),5) = "APPLE" THEN PRINT "IT LOOKS LIKE THE COMPUTER IS SMARTER THAN THE REST OF YOU!": GOTO 6000
2050 PRINT "AND NOW, IF YOU'RE READY, WE'LL GO FOR THE BONUS ROUND."
2060 PRINT "YOU'LL HAVE A PUZZLE ON WHICH YOU CAN GUESS SIX LETTERS -- FIVE CONSONANTS ANDONE VOWEL. IF YOU CAN GUESS THE PUZZLE,YOU'LL WIN $5,000 CASH."
2070 PRINT : PRINT "PRESS ANY KEY WHEN READY.": GOSUB 11001
2080 FOR QQ = 1 TO 26:IP(QQ) = 0: NEXT QQ:ZT = INT( RND(1) *QA +1):REAL$ = REAL$(ZT): IF UP(ZT) THEN 2080
2090 GOSUB 11002:UP(ZT) = 1
2110 VTAB 16: FOR LOOP = 1 TO LEN(REAL$): IF MID$ (REAL$,LOOP,1) >"@" AND MID$ (REAL$,LOOP,1) <"[" THEN PRINT CHR$(95);: GOTO 2112
2111 PRINT MID$ (REAL$,LOOP,1);
2112 NEXT LOOP: NORMAL : PRINT
2113 VTAB 23: PRINT "THE PUZZLE IS : ";: INVERSE : PRINT IT$(ZT): NORMAL
2114 FOR L = 1 TO 15: VTAB L: CALL -868: NEXT L: VTAB 8: PRINT "NOW, TYPE FIVE CONSONANTS, ALL AT ONCE ";: INPUT CN$
2115 FOR L = 1 TO 5:KN$ = MID$ (CN$,L,1): IF KN$ <"@" OR KN$ >"[" OR (KN$ = "A" OR KN$ = "E" OR KN$ = "I" OR KN$ = "O" OR KN$ = "U") THEN PRINT CHR$(7);: HTAB 1:L = 5: NEXT L: GOTO 2114
2116 NEXT L: VTAB 9: CALL -868
2117 VTAB 8: PRINT "NOW, INPUT THE VOWEL ";: INPUT VO$
2118 IF (VO$ < >"A" AND VO$ < >"E" AND VO$ < >"I" AND VO$ < >"O" AND VO$ < >"U") THEN PRINT CHR$(7);: GOTO 2117
2119 FOR L = 1 TO 5:GG$(L) = MID$ (CN$,L,1): NEXT L:GG$(6) = VO$
2120 FOR L = 1 TO 6: FOR LOOP = 1 TO LEN(REAL$): IF MID$ (REAL$,LOOP,1) = GG$(L) THEN VTAB 16: HTAB LOOP: PRINT GG$(L);: CALL -198
2121 NEXT LOOP,L
2122 VTAB 8: HTAB 1: CALL -868: PRINT "FOR $5000, WHAT'S YOUR GUESS?": VTAB 9: CALL -868: INPUT GU$: VTAB 9: CALL -868
2123 IF GU$ < >RE$ THEN VTAB 8: CALL -868: PRINT "SORRY, THE ANSWER WAS...": VTAB 16: PRINT RE$: GOTO 2125
2124 VTAB 16: PRINT RE$: VTAB 8: CALL -868: PRINT "RIGHT!!!!!":GT = GT +5000
2125 VTAB 20: PRINT "TODAY, YOU WON...$";GT: PRINT "CONGRATULATIONS!!!!!": FOR LOOP = 1 TO 5: CALL -198: NEXT LOOP: FOR PAUSE = 1 TO 500: NEXT PAUSE
6000 VTAB 21: CALL -958: INVERSE : PRINT "PRESS C TO PLAY AGAIN, Q TO QUIT ";: GET YN$
6001 NORMAL : PRINT : IF YN$ = "C" THEN FF = FRE(0): CLEAR : RUN
6002 IF YN$ < >"Q" THEN 6000
6999 END
7000 FOR LL = 1 TO LEN(UL$): IF MID$ (UL$,LL,1) = GUESS$ THEN VTAB 11: PRINT "SORRY, YOU'VE USED A USED LETTER.": FOR PAUSE = 1 TO 1000: NEXT PAUSE: VTAB PEEK(37): CALL -868:LL = LEN(UL$): NEXT LL: GOSUB 11000: POP : GOTO 255
7001 NEXT LL: RETURN
8000 PRINT : PRINT PL$(C);" WINS!!!": FOR LOOP = 1 TO 5: CALL -198: NEXT LOOP: GOSUB 9499: FOR PAUSE = 1 TO 1000: NEXT PAUSE: NEXT PZ: GOTO 2000
9000 NORMAL : VTAB 3: HTAB 31: PRINT 1: VTAB 4: HTAB 31: PRINT 2: VTAB 5: HTAB 31: PRINT 3: FLASH : VTAB 2 +C: HTAB 31: PRINT C: NORMAL
9001 VTAB 2 +C: HTAB 33: PRINT SPC( 0 +(CASH(C) <10000) +(CASH(C) <1000) +(CASH(C) <100) +(CASH(C) <10));CASH(C): RETURN
9499 INVERSE : FOR CM = 1 TO 3: IF CM < >C THEN CASH(CM) = 0
9500 NEXT CM: TEXT : VTAB 1: HTAB 29: INVERSE : PRINT "GRAND TOTAL": POKE 34,2
9501 FOR CM = 1 TO 3:GT(CM) = GT(CM) +CA(CM)
9502 VTAB 2 +CM: HTAB 31: PRINT CM: VTAB 2 +CM: HTAB 33: PRINT SPC( 0 +(GT(CM) <10000) +(GT(CM) <1000) +(GT(CM) <100) +(GT(CM) <10));GT(CM): NEXT CM: NORMAL
9503 FOR PAUSE = 1 TO 1000: NEXT PAUSE: RETURN
10000 VTAB 11: INPUT "PRESS RETURN TO SPIN ";ZZ$: VTAB PEEK(37): CALL -868: RETURN
10050 FOR QR = 1 TO 5: PRINT CHR$(7);: FOR PAUSE = 1 TO 55: NEXT PAUSE,QR: RETURN
11000 VTAB 8: HTAB 1: PRINT "YOUR CASH IS $"CASH(C)" ": GOSUB 9000: RETURN
11001 POKE -16368,0: WAIT -16384,128: POKE -16368,0:FF = INT( RND( PEEK(78) + PEEK(79) *256)): RETURN
11002 FOR QR = 1 TO LEN(REAL$):QR$ = MID$ (REAL$,QR,1): IF QR$ < >" " AND QR$ < >"-" AND QR$ < >"'" THEN IP( ASC(QR$) -64) = IP( ASC(QR$) -64) +1
11003 NEXT QR: RETURN
11004 VTAB 11: PRINT " TO ";: INVERSE : PRINT "SPIN";: NORMAL : PRINT ", TO GUESS THE PUZZLE";: IF CASH(C) > = 250 THEN PRINT " OR TO BUY A VOWEL ";
11005 RETURN
20000 REM ----------------WHEEL OF FORTUNEJOE ISHAM----------------
Text found in Volume_125_Dallas_Assortment_3.dsk/YDAVID L MANAGER.txt:
1050
70.35
145.85
345-87-4545
1050
70.35
145.85
Text found in Volume_125_Dallas_Assortment_3.dsk/YDONALD C BLACK.txt:
350
23.45
45.67
123-45-4545
350
23.45
45.67
Text found in Volume_125_Dallas_Assortment_3.dsk/YJOE D BROWN.txt:
220
14.74
18.85
345-78-9987
220
14.74
18.85
Text found in Volume_125_Dallas_Assortment_3.dsk/YJOHN T STUDENT.txt:
200
13.4
0
459-84-5656
200
13.4
0
Text found in Volume_125_Dallas_Assortment_3.dsk/YTOM E WHITE.txt:
800
53.6
88.58
455-23-3434
800
53.6
88.58
Text found in Volume_125_Dallas_Assortment_3.dsk/YTOTAL.txt:
2620
175.54
298.95
92.56
- Addeddate
- 2014-07-10 00:04:57
- Emulator
- apple2e
- Emulator_ext
- dsk
- Identifier
- riag_005_Volume_125_-_Dallas_Assortment_3
- Scanner
- Internet Archive Python library 0.6.5
comment
Reviews
257 Views
DOWNLOAD OPTIONS
IN COLLECTIONS
Rhode Island Apple Group Floppy Disk Collection The Software Library: Apple Computer Software Library The Emulation StationUploaded by Jason Scott on